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ANSCHUETZAVEISGERBER/ANSCHUETZ 

EARLY DAYS 


The beginning of the Anschuetz/Weisgerber/Anschuetz (AWA) team's obsession with the Atari 8-Bit 
Computer system began on Christmas Day, 1981, when Eric and Robert Anschuetz received an Atari 400 
for Christmas along with a 410 Cassette Recorder for data storage and a BASIC Programming Language 
Cartridge. The Atari 400 computer hooked up to their small 13" Color TV in their bedroom. The Atari 
400 came with a user's manual and a BASIC programming guide. Shortly after they got their computer, 
they upgraded it from the standard 16K memory to 48K. Now they had a real computer! Along with 
the Atari 400, they soon purchased the games Star Raiders, Missile Command, Ghost Hunter (a Pac-Man 
clone), and Galactic Chase (a Galaxian clone). Eric and Robert also obtained an Atari Programmer's 
Manual that unlocked some of the secrets of the computer and provided several programming 
examples. This manual was thoroughly read and referenced often over the years. 

Since Eric and Robert weren't experienced at typing, the very Christmas Day that they received the 
computer they had their Dad type in a BASIC program called "Shoot" from the September 1981 issue of 
COMPUTE! Magazine. "Shoot" was similar to Air-Sea Battle on the Atari 2600 VCS, and was actually a 
machine-language program that used a BASIC listing to call the machine language routines. This BASIC 
language listing for "Shoot" opened their eyes to the world of programming and the tricks necessary on 
the Atari for displaying colorful images, making sounds, and making things move with a joystick. 

Eric and Robert's best friend, John Weisgerber, shared their passion for video games and their curiosity 
to find out how to write programs for their computer. John paid almost daily visits to their house to play 
games and type in programs written in BASIC from magazines. Each program they typed in was another 
learning experience. There were three primary magazines that catered to the Atari 8Bit (400 and 800) 
computers: A.N.A.L.O.G., ANTIC, and COMPUTE!. Two other magazines, SoftSide and Creative 
Computing, mostly covered the Apple II, but occasionally published Atari-related articles and type-in 
games. 

Eric, Robert, and John spent the summers in Ypsilanti, Michigan taking long walks and riding their bikes. 
They often walked 10 miles or so each way to Briarwood Mall in Ann Arbor, although more often they 
would bike there. They so looked forward to receiving the latest issue of A.N.A.L.O.G, Antic, and 
COMPUTE!, that they knew the exact date that the magazines would arrive at the B. Dalton book store 
in Briarwood Mall and often timed their bike rides and walks to arrive on the same days that the 
magazines did. On more than one occasion, they had to ask the store manager to check in the back of 
the store for the day's arrival of magazines and got the latest issue straight out of the box. 

It didn't take long until the A/W/A Team started writing their own games. The first game that any of 
them wrote was a game called "Phoenix" written by Robert. Phoenix was semi-playable and was, of 
course, modeled after the arcade game Phoenix. Probably the first fully playable game was a two- 
player game that took place in a pyramid called Ramses' Revenge. The A/W/A Team spent many late 
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nights drawing game characters and background graphics on graph paper, and then encoding them 
within numerical values that represented the l's and 0's that comprised the bitmap of the characters. 
Ramses' Revenge was especially noteworthy in that Robert, Eric, and John discovered how to program 
and use a redefined character set the same day that they programmed the game. They studied code 
from other programs in the Atari magazines and within a day had learned the concept of redefining 
character sets and developed a complete game using the technique! 

Another early game that the A/W/A Team worked on was a racing game based on the Atari arcade game 
Night Driver. This game was called "Detroit Grand Prix," because the driving course in the game was an 
actual representation of the Detroit Grand Prix race course, which was held on the streets near the 
Detroit riverfront around the Renaissance Center. The A/W/A Team took a map of the Detroit Grand 
Prix track, and encoded it in such a way that it would be represented within the game. The visuals for 
the game placed a static nose of a race car at the bottom of the screen. On the nose of the car, the #14 
and the word "Foyt" was written upside down, as it would be seen from the driver's perspective. This 
was accomplished using a unique character mode of the Atari that flipped text upside down. The car 
navigated through pylons that came toward the driver, and the object was to remain in the middle of 
the pylons without crashing into them. 

Still another game the A/W/A Team wrote was a game patterned after Midway's Space Encounters. 

This game took place in a trench similar to the death star trench scene in Star Wars. The sides of the 
trench rotated through colors, giving the illusion that your ship was moving forward. The A/W/A Team 
programmed the ship to move around in accordance with the joystick movement, but development 
stopped at that point due to reaching some sort of technical limitation of their Atari programming 
knowledge. They never got the enemy ships programmed and ended development of the game. 

These early games were developed using the Atari 410 cassette recorder as a backup device since the 
A/W/A Team didn't yet own a disk drive. The 410 was very unreliable, and it was only a 50/50 
proposition whether the saved data could be re-loaded the next day. For every two steps forward in 
development, it seemed like there was always a step backwards with lost data. Unfortunately, because 
of the unreliability of the Atari 410 cassette recorder, some of these games including Detroit Grand Prix 
and the Space Encounters game, were lost to nothing but memory. Robert and Eric bought a 
degaussing wand that they plugged in and waved in front of the read/write heads of the cassette 
recorder. Presumably, this made the read/write functions of the cassette recorder a little bit more 
reliable, but not by much. Eric and Robert didn't have a printer in those days to even print out the 
"listing" of the game as a backup in case the cassette recorder failed. 

Because of the very limited RAM available, the A/W/A Team was very conscious of memory saving 
techniques. Their modified Atari 400 had 48K of RAM, but most games needed to be written for 16K so 
that publishers could be assured that every Atari owner could run the games. They found out that every 
time a number was referenced, it took six bytes to store the floating-point version of the number, even 
if it was an integer, like 0! Flowever, Atari BASIC used a clever way of tokenizing source code so that the 
first time a variable was used, it took something like six bytes, but every time it was referenced after 
that only took a byte or two. Because of this, many Atari BASIC programs had code at the beginning like 
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ZERO = 0 and then used references to the variable ZERO throughout the code rather than using the six 
byte "0" in order to save code. In order to give lasting tribute to themselves and friends, they would 
almost always use their initials as variables in the BASIC code (e.g. EA = 1, RA = 0, and JW = 100). It was 
a nice tribute, but it led to very unreadable code! In addition, comment statements (REM in BASIC), 
would take a byte for each character in the comment. They couldn't afford any extra memory, so the 
comments were the first to go. Again, this made their code very difficult to read. They would almost 
always make these changes at the very end of coding so that it was not so difficult to read as they were 
developing, but the finished product may just as well have been encrypted! 


PUBLISHED GAMES 


Those early games like Phoenix, Ramses' Revenge, Detroit Grand Prix, and Space Encounters were a 
great learning experience for developing even better games. At the same time, more and more 
information about the secrets of Atari Player/Missile Graphics, Display Lists, Redefined Character Sets, 
Hidden Graphics Modes, Assembly Routines, Sound Effects, and Horizontal/Vertical Scrolling were being 
documented in the Atari magazines. Combining their experience with the new-found secrets of 
programming led the A/W/A Team to pursue writing BASIC games that were worthy of publication in 
one of the Atari-based magazines. 

The A/W/A Team worked late hours in Robert and Eric's bedroom. Most of the productivity occurred in 
the summer when they were out of school and could spend lots of times designing and playing games. 
They worked well as a team and never argued over game development ideas. They took turns at the 
keyboard, and while one person was typing in the code, the others were writing code out on paper or 
designing graphics on graph paper. The A/W/A Team didn't have a printer at that time, so all source 
code was typed directly into the ATARI BASIC editor directly from notes scratched out on paper. They 
learned to back-up their BASIC programs on cassette often, but often not enough to prevent losing lots 
of work. 

Taking all of the information that they had learned, the A/W/A Team started writing games like Kooky 
Klimber, Night Rescue, and Kooky's Quest. These games are covered in detail below. The A/W/A Team 
added a standardized 3-line title screen centered on the screen to all of their programs. The title screen 
mixed text modes and each line had text of a different size and color, contrasted typically against a black 
background. The standardized A/W/A game title was listed using large text on the first line, the second 
line was a status line (typically either "Initializing" or "Press START to Begin"), and the third line proudly 
displayed the name that the team went by "Anschuetz/Weisgerber/Anschuetz." After showing the first 
game that implemented this title screen to Robert and Eric's Dad, who was an English Major and 
professional editor and copywriter, their Dad said "'Initializing' is not a word!" 

Kooky Klimber was the first game that the A/W/A submitted to a magazine, and it was purchased by 
COMPUTE! magazine for $400. Shortly after that, Night Rescue was written and sold to COMPUTE! for 
another $400. Unfortunately, both of these games were never published. Kooky's Quest, Overflow, 
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and Robot Dungeon were sold to Antic magazine for slightly less money ($200-$300), and they were 
ultimately published in 1985. 

About a year or two after Robert and Eric got their Atari 400, John Weisgerber worked on his parents 
and got an Atari 400 as well. With some of the earnings from selling games to magazines, Robert and 
Eric later upgraded to an Atari 800XL with built-in BASIC and a full-keyboard. Along with the Atari 
800XL, they also bought an Atari 1050 Disk Drive, a color Okimate 10 printer, an MPP 1000C 300-baud 
modem, and a small 4-color miniature plotter known as the Atari 1020. At this point, since John had his 
own computer, the A/W/A Team's game-writing turned a little more individualized instead of in group 
sessions. John primarily wrote Space Assailants and completely wrote Overflow using his own Atari 400, 
Eric authored Kooky Diver and Yahtzee, and Robert and Eric primarily wrote Piracy II. Robert and Eric 
also wrote a fairly sophisticated database program for use by the Eastern Michigan University Athletic 
Director, Gene Smith, who went on to become the A.D. at Ohio State University. 


PHREAKS AND PIRATES 


When the A/W/A Team started at Eastern Michigan University in the fall of 1983, they met some 
classmates who also owned Atari computers. These new friends had hundreds of pirated Atari games 
on disks. At the time, Eric and Robert only had a cassette player, so their new college friends had to use 
a program to convert the disk games to cassette games. Most of them worked, but it was inconvenient 
for the friend and for Eric and Robert. Eric and Robert quickly decided to invest the $500 it cost to 
purchase an Atari 1050 floppy disk drive that held 92K bytes of storage on each side of a 5 -% inch floppy 
disk. The floppy disks at that time only provided storage on the front side of the disk. To use the back 
side of a floppy, computer users had to punch a notch on the left side of the disk to remove the write- 
protection. Then the disk could be used on both sides, but even so it had to be manually flipped over to 
use the back side as storage. After Eric and Robert bought their Atari 1050 disk drive, it was a simple 
matter of them bringing a handful of blank floppy disks to their friends living in the EMU dorm rooms 
and coming home with all of the latest game releases. 

At about the same time. Atari Bulletin Board Services (BBS's) opened for business and proliferated. 

These BBS's were like early web-sites prior to the wide-spread use of the Internet, complete with chat 
rooms, news, information, and file sharing. BBS's were accessed through a dial-up phone line, and had 
a public-facing area where all of the free information and chat rooms were accessed. Most BBS's also 
had a private password-protected area where pirated games could be accessed and downloaded. All it 
took was a little trust to be developed with the BBS system operator (sys-op) and you could normally get 
a password into the BBS's protected area and download even more games. 

So in order to access these BBS's, Eric and Robert bought a 3 rd party MPP 300 baud modem. The 
modem was blue and plugged into a joystick port, which on the Atari computer could be programmed as 
general I/O ports and provided the analog to digital conversion needed for the modem to work. This 
modem was used in conjunction with special Atari software that allowed the Atari to connect to the 
Eastern Michigan University mainframe and BBS's. Eric and Robert were not only able to download 
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hundreds of games, but they were some of only a handful of students who could actually program the 
DEC 10 and DEC 20 mainframe computers from the comfort of their own home. 

One of the great Michigan bulletin board services was called the Country Peddler and was based in 
Whitmore Lake, Michigan. In those days, Whitmore Lake was a long-distance toll phone call from 
Ypsilanti. The Country Peddler was generous to its subscribers and put a relay phone in Ann Arbor, 
which essentially was a centralized phone hub for neighboring communities. Ann Arbor was a local 
phone call from Ypsilanti, and calling the Ann Arbor number forwarded the phone to the Whitmore Lake 
number. However, there were also many other great bulletin boards all over the country, and it would 
be too expensive to call them long distance and tie up the phone for hours downloading games. 

So the next thing the A/W/A Team explored was phone phreaking. Phreaking was a way to make long 
distance calls for free. One way was to use a tone-generation program that could hijack a phone line 
and allow you to make free calls. There was a listing in one of the Atari computer magazines that 
provided touch-tone dial tones, including some tones not accessible on a normal phone that could 
presumably produce tones needed to call long distance for free. The A/W/A Team typed in the 
program, recorded the tones using a portable tape recorder, then went to a pay phone on Cross Street 
and attempted to play the tones necessary to get a free call. This was too complicated and required 
going to a pay phone which was nowhere near their Atari Computer, so this wasn't practical. The 
practical solution was to get free hacked long-distance codes from a bulletin board service. The way 
this worked was that you would call a free 800-number and then you would enter the long-distance 
code using a touch tone phone. 

The problem was that Eric and Robert didn't have a touch tone phone. So they used the Atari program 
to make the touch-tone noises needed for the long distance codes to be entered by putting the phone 
next to the TV's speakers. This way, the A/W/A Team was able to access BBS's around the country 
through a free long distance phone call. Typically, after using the codes for a day or two they would 
stop working, but additional new codes were always available on the BBS's. Amazingly, these codes 
were only four digits long and in many cases sequential, so even without the codes being published on 
BBS systems, they could rather easily be guessed using trial and error. The ethical justification was that 
nobody (but the phone company) would be harmed by making these calls because once the owner of 
the code received a huge phone bill, they would easily be able to explain that they couldn't possibly 
have made all of those phone calls and were ultimately not billed. 


GAME OVER 


The A/W/A Team broke up when Eric and Robert moved to Florida in 1987. By that time, the world had 
moved onto PC's and Macs, and nobody really programmed for the Atari 8-Bit machines anyway. Eric 
wrote one last game, Soko-Ban, in 1988. After that, the Atari 400, Atari 800XL, the printers, the 
modems, the peripherals, the disks, and cassettes went into the closet and attic, rarely to be used again. 

In about 1990, a device called SI02PC interface came out that allowed that Atari to connect to a PC. 

This was handy because all of the floppy disk games could be copied onto a hard-drive on the PC and 
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persevered. Around that same time, several Atari 8-Bit emulators started to become available to allow 
playing Atari 8-Bit games on a PC, and almost all Atari commercial games were distributed on USENET 
COMP.SYS.ATARI.8BIT servers. Using SI02PC, The A/W/A Team backed up most of their BASIC game 
onto "virtual" floppy disks that could be used by the emulators. After the games were copied to a PC 
and emulators could run them, there really wasn't a need to pull the original computers out of the 
closet and attic. 


LASTING LEGACY 


The A/W/A Team is credited on the list of "Giant List of Classic Video Game Programmers" 
http://dadgum.com/giantlist) . which documents most of the classic era (1980's) of videogame 
programmers. The articles and BASIC code for the three Antic-published A/W/A games (Kooky's Quest, 
Overflow, and Robot Dungeon) can be searched for on the Internet, and will always be available for 
download. However, there were several other great games written by the A/W/A Team that should be 
documented somewhere, so this document is the place to do it. That includes the two games sold to 
COMPUTE! (Kooky Klimber and Night Rescue), plus several others that were never published. 
Unfortunately, there were several other games on cassettes and floppy disks that were written by the 
A/W/A Team that weren't backed up and are probably are lost forever, including the phoenix game, the 
pyramid game, the racing game, the space game, and EMU Athletic Department database program. 

The good news is that many of the games are documented here and are still playable through 
emulation. All of the games have now been released and posted to the Atari 8-bit games repository 
http://www.atarimania.com . Links to each of the specific games for download have been provided 
below in the section discussing each game. On August 4, 2017, the A/W/A Team was asked to 
participate in an interview for the Antic Atari Podcast with Kevin Savetz. The audio for the podcast 
interview is at this link: http://ataripodcast.libsyn.com/antic-interview-297-robert-anschuetz-eric- 
anschuetz-iohn-weisgberber-antic-magazine-games . The YouTube video for this podcast interview is at 
this link: https://www.youtube.com/watch?v=c nHGAf3mFs . 
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On September 2, 2018, Robert and Eric played each and every one of the games that they had written 
and recorded their reactions to the games and their recollections making them. The YouTube video for 
this podcast interview is at this link: https://www.youtube.com/watch?v=5eUiVThvdlg . 
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A/W/A BASIC GAMES 






ANSCHUETZ HIGH SCORE / GAME LISTER (1985) 


http://www.atarimania.com/utilitv-atari-400-80Q-xl-xe-high-scores 31444.html 


ANSCHUETZ HIGH SCORE/GAME LISTER 


r 







NAME OF GAME7GALAXIAN 






THE HIGH SCORE OF 



(1) RETRIEVE HIGH SCORE 



GALAXIAN 



(2) VIEW GAMES 



IS 

0026510 BY EEA 



(3) ADD NEW GAME 







(4) EDIT HIGH SCORE 







(5) VIEW TREASURE CHESTS 




press nnEiTT-n for 

MAIN 

MENU 

(6) DOS 

? 







MOUNTAIN KING 

0011020 

KD A 

ENTER NAME OF NEW GAME: 



SHAMUS CASE II 

0084635 

EE A 

(UP TO 25 CHARACTERS) 



BLOCK BUSTER 

0000000 

AAA 





JUICE 

0011840 

KD A 

? 




SNAKE BYTE 

0012110 

RRA 





GETAWAY 

0000810 

KD A 





SPY'S DEMISE 

0001719 

EE A 





KICKBACK 

0001330 

EE A 





QUARXON 

eoooeee 

AAA 





FANTASTIC VOYAGE 

0006390 

RJK 





SNEAKERS 

0007403 

RRA 





TRION 

0002490 

KDA 





STARBOWL FOOTBALL 

0000000 

AAA 





HOT LIPS 

0002510 

KDA 





NECROMANCER 

0059177 

JJW 





PHARAOH'S CURSE 

0004510 

JJW 





SURVIVOR 

0161060 

KDA 





SLIME 

0002780 

KDA 





SHAMUS 

0092780 

KDA 





PRAMUS 

0094555 

EEA 





PROTECTOR 

0014390 

KDA 





PROTECTOR II 

0017350 

KDA 





NAUTILUS 

0003600 

EEA 





CHICKEN 

0016550 

RRA 








A . 

FIGHTER PILOT 



ENTER NAME OF GAME 



B . 

ION POWER 



(UP TO 25 CHARACTERS LONG) 



C. 

INCOMING 






D . 

AIR HOCKEY 



?GALAXIAN 



E . 

THE EMPIRE STRIKES BACK 





F . 

RICHARD PETTY'S TALLADEGA 


NEW HIGH SCORE (UP TO 7 DIGITS) 






734444 



TREASURE CHEST 076 



INITIALS (UP TO 3 LETTERS) 



A . 

FIRE CHIEF 






B . 

STARGUNNER 



?RR A 



C . 

SPACE JOURNEY 






D . 

SARGON CHESS III 






E . 

GREENOUT 






F . 

TIMEBOUND 






G. 

THE ELECTROIDS 






THAT'S ALL FOLKS!!! 







PRESS FOR 

MAIN 

MENU 





OR PRESS Q TO VIEW THE LIST AGAIN 


Game Play 
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This high-score database program was created to keep track of the A/W/A Team's game disks (called 
Treasure Chests, numbered from 1-76) and their high scores. The program allows the user to retrieve a 
specific game's high-score, view a listing of all of the games, add a new game to the list, edit an 
individual high-score, and view a list of the contents of the Treasure Chest game disks. The option to 
show a listing of the high-scores includes an option to alphabetize the list. 

Recollections 

Microsoft Access and Excel didn't exist in the 1980's, so the A/W/A Team wrote their own database 
program and accompanying file format to keep track of all of their game disks and high-score data. The 
program is relatively straight-forward and is mostly disk read/write routines to store the data. The 
routine to alphabetize the game list is actually an assembly language sort routine. The A/W/A Team 
found this sort routine in a magazine listing and used it in the program. The methods used in writing 
database information to the disk drive was used as a foundation for the EMU Athletic Director's 
database program. Eric and Robert encouraged all of their friends and relatives to have at least one 
entry in the high-score database. They would often find an obscure game and then encourage a friend 
to play it to be immortalized in the high-score database. Prophetically, 35 years later, these same initials 
can be found throughout the high-score listings, many of which the A/W/A Team is now unable to 
remember who they belonged to! 
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ALIEN ASSAULT (1983) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-alien-assault 31443.html 


ALIEN ASSAULT 

PRESS START TO BEGIN 
ANSCHUETZ/MEISGERBER/ANSCHUETZ 





Alien Assault is clearly influenced by Atari Missile Command. The object of the game is similar - missiles 
rain down from space onto satellites that must be protected by a laser fired by a central base. You start 
the game with 35 protective lasers, as indicated by the "Energy" counter at the bottom of the screen. 
The "Destroyed" counter shows how many of the satellites have been destroyed. Unlike Missile 
Command, only one missile comes down at a time, but the screen can be scrolled "West" and "East" 
(left and right) to observe the missile and shoot it down. When you shoot down all of the missiles in a 
set, another set appears with a different colored background, which is another homage to Missile 
Command. Once all of the bases are destroyed or you run out of energy, your game ends. 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 
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You have been stationed on the moon in the year 2136. The reason? To protect 
solar collectors from possible destruction. You will do your protecting from 
within a super-advanced, armed battle tank. The tank is made of a very strong 
alloy that cannot be destroyed. Think you are up to the task? 

The moon was discovered to have a vast resource of area available that is ideal 
for the positioning of solar collectors. These collectors provide much of the 
earth's energy and are mandatory for the survival of humanity. Your mission: 
protect the moon, and more specifically, the solar collectors from the ongoing 
ALIEN ASSAULT. 

You begin your mission in the eeriness of night. Intelligent radar indicates that 
you will have to continue your frenzious attack on the alien bombs on through 
the spectacular lunar sunrise, onto midday, through the next sunset, and onto 
another day. Before you begin your mission, you received a supply of 50 units of 
energy. As you shoot at the alien bombs with your lasers, however, your supply 
of energy will rapidly begin to decrease at the rate of one unit per each laser 
fired. 

Earth intelligence has revealed that on the first series of attacks, the aliens will 
send out ten missiles aimed to destroy ten of the solar collectors. During each 
successive onslaught, five additional missiles will be sent until the maximum 
total of 40 is reached. In addition to more enemy bombs to worry about, on 
every other wave of bombings, the amount of solar collectors that the aliens 
have to destroy is decremented by one. This is due to the fact that the solar 
technicians are too busy fleeing back to earth to have time to make the 
necessary repairs. Malfunctions do happen occasionally even in this advanced 
age. 

As each alien missile is launched by the alien armada toward the solar collectors, 
the indicator in the lower middle of the display will indicate whether the missile 
is in the west (left) or to the east (right) of your tank. To shoot a laser at one of 
the alien missiles, position your crosshairs on top of the missile and press the fire 
button. A laser will be sent from your tank toward the spot in space directly in 
line with where the crosshairs are aimed. 

If you manage to line the crosshairs directly on top of the alien missile, the 
missile will be destroyed. The number of missiles remaining to be sent will be 
decremented by one. If you should miss the missile, one of two things may 
happen. First, the missile may hit a solar collector. If this should happen more 
than the amount of times allowable for each ambush, your game will be over. 
Second, the missile may crash harmlessly on the surface of the moon, in which 
case nothing happens. At the end of each set of ambushes, the color of the 
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background will change to indicate the rising of setting of the sun. Every few 
sets, the missiles will speed a bit in their descent. 

ALIEN ASSAULT is a difficult game which requires manual dexterity as well as a 
strategy. Here are some hints. Always keep an eye on the indicator in the 
middle of the screen. This will tell you which direction to begin moving in. 

Always begin moving immediately. This will help you get to the enemy faster. 

Keep a mental note of where you are in relationship to the entire playing field. If 
you find you cannot travel any more in the direction in which you wish, you have 
reached the outside boundaries and should change directions immediately. As 
you become more advanced in ALIEN ASSAULT, you will have a feel for when you 
have begun to travel too far in a particular direction. Sacrifice a solar collector if 
you feel you are drifting a long way away from the center of the playfield. This 
may mean many collectors saved in the long run. 

Keep an eye out for the energy remaining. This means take carefully placed 
shots instead of machine-gun style. If you do shoot machine-gun style, you will 
find that your energy supply will quickly run out and you will be forced to watch 
helplessly as your last remaining solar collectors are destroyed. 

Also watch the number of collectors destroyed in the lower right-hand corner of 
the screen. Always compare this to the number of collectors that are permitted 
to be destroyed in the particular ambush. Remember, this number starts at ten 
and is decreased by one on every other wave. 

One final suggestion is to always keep your crosshairs positioned near the 
bottom. This will give you that all-important last shot. This may prove to be the 
difference in lasting another ambush or not. 

Recollections 

Alien Assault was one of the early A/W/A games written before the team had a disk drive. How do we 
know that? Because the code overwrites the area of the disk drive handler, and therefore doesn't work 
if you run it off the disk! It wasn't until 2017 that Eric Anschuetz discovered this major flaw, and re¬ 
wrote the BASIC code so that it runs in a protected area of memory and can now run on disk some 30 
years later! The BASIC code listings show both the original code (circa 1983) and the updated code 
(2017). 

The missile coming down from the screen is a Player/Missile graphic, as is the target indicator controlled 
by the joystick. The laser that is fired at the satellite is another Player/Missile graphic. This game 
makes use of parallax scrolling, which means that the satellites in the foreground scroll at a faster rate 
than the mountains in the background. This mirrors the effect in Williams Moon Patrol, and may have 
influenced the game a bit. 
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More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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EMU TRACK MEET DATABASE (1987) 


http://www.atarimania.com/utilitv-atari-400-80Q-xl-xe-emu-track-meet-database 31477.html 


1. ggEHEH 

iliiM 


MAIN MENU 

4 


ARTICIPANT DAT 


UENT DAT 


2 . 3 

3. 


T-lf■ 


5. 

s. GBEUpga 


MAKE SELECTION OR 
HIT 3 FOR DESCRIPTIONS 


HIT 1 TO EDIT/VIEM EXISTING MEET 
HIT H TO START NEW MEET DISK 
MHICH? 


GENERAL MEET INFORMATION 


1. MEET NAME 

2. MEET LOCATION 

3. FIRST DAY 

4. FIRST DATE 

5. NUMBER OF DAYS 

6. NUMBER OF LANES 


7. 
8 . 


SCORING FORMULA 18 8 6 
FIRST ID NUMBER 2345 


E.M.U. INVITATIONAL 
BOWEN FIELDHOUSE 
FRIDAY 
3/14785 
4 
8 


4 2 1 


HIT B TO ENTER ALL ITEMS 
ENTER NUMBER TO EDIT SINGLE ITEM 
HIT E TO SAVE DATA ON DISK 
HIT FOR MAIN MENU 

MHICH? 


EVENT til 

1. EVENT POLE VAULT 

2. MEASUREMENT TYPE 3 

3. SEEDING CODE 2 

4. DIVISION 4 

5. PRELIM: THURSDAY 

6. TIME OF PRELIMS 11:88 

7. SEMI: FRIDAY 

8. TIME OF SEMIS 12:88 

3. FINAL: SATURDAY 

18. TIME OF FINALS 1:88 

11. NUMBER TO FORCE HEATS 2 

HIT B TO ENTER ALL ITEMS 
ENTER NUMBER TO EDIT SINGLE ITEM 
HIT E TO SAVE DATA ON DISK 
HIT FOR MAIN MENU 

MHICH? 


NAME 


2. ACRONYM 

3. ADDRESS L.l 

4. ADDRESS L.2 

5. ADDRESS L.3 

6. ZIP CODE 

7. PHONE tt 

8. CONTACT NAME 
3. SCORE: 

18. SCORE: 

11. SCORE: 


AFFILIATION til 

EASTERN MICHIGAN 


HURONS 
BOWEN FIELDHOUSE 
E.M.U. 

YPSILANTI, MICHIGAN 

48137 

487-3232 

BOB PARKS 

323 

535 

636 


2 . 
3 . 


ENTRANT 111 

1. ENTRANT NAME FIRST ONE 
AFFILIATION tt 3 
SCHOOL GRADE 4 

4. EVENT tt 5 

5. EVENTS ENTERED 


ENTERING MARKS 
EVENT ttl 34586 


1 8 8 8 8 8 


HIT B TO ENTER ALL ITEMS 
ENTER NUMBER TO EDIT SINGLE ITEM 
HIT S TO SA VE DATA ON DISK 

hit ‘lamnr for main menu 

MHICH? 


HIT 3 TO ENTER ALL ITEMS 
ENTER NUMBER TO EDIT SINGLE ITEM 
HIT E TO SAVE DATA ON DISK 
HIT :l=*NI»fi: FOR MAIN MENU 
MHICH? 
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EVENT ttl 


PARTICIPANT 


AFFIL POINT 


1 LAST ONE 

2 SCOTT R. PARKS 

3 ROBERT ANSCHUETZ 

4 ERIC ANSCHUETZ 

5 EARL JONES 

6 EDWIN MOSES 


16 


HIT NUMBER TO REPLACE A PARTICIPANT 
HIT 3 TO PRINT DISPLAYED DATA 
HIT g TO SAVE DISPLAYED DATA TO DISK 
HIT TO EXIT TO OUTER MENU 

MHICH? 


DESCRIPTIONS 


VENT DAT 


ENTER/REVISE EVENTS 
PRINT OR LIST EVENT 




HEAT ttl 


5 EARL JONES 

8 GARY HERNDON 
4 ERIC ANSCHUETZ 

6 EDWIN MOSES 

7 CARL LEMIS 


34460 1 
35809 1 
35854 3 
48112 3 
41834 4 


HIT £3 TO VIEH NEXT HEAT 
HIT 5 TO VIEW PREVIOUS HEAT 
HIT 3 TO PRINT ALL HEATS BY LANE tt 
HIT g TO SWAP PARTICIPANTS 'A' AND 'B* 
HIT :1=>4U:J: FOR MAIN MENU 


MHICH? 


DESCRIPTIONS 


START NEW TRACK 


ENTER GENERAL DATA FOR NEW MEET 
REVISE DATA ON EXISTING MEET 
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DESCRIPTIONS 


DESCRIPTIONS 


SFFILIATIC 


ENTER/REVISE AFFILIATIONS 
DISPLAY AFFILIATIONS 
PRINT AFFILIATIONS 


*FFILIATIC 


ENTER/REOISE AFFILIATIONS 
DISPLAY AFFILIATIONS 
PRINT AFFILIATIONS 


PRESS □ FOR NEXT 
PRESS E FOR MAIN 


PRESS □ FOR NEXT 
PRESS I FOR MAIN 




■a/w/a- 



ENTER/REVISE RESULTS 
PRINT RESULTS 
CROSS COUNTRY RESULTS 


PRESS □ FOR NEXT 
PRESS T FOR MAIN 


a/w/a' 



Game Play 

This program was written to keep track of various administrative data for the EMU Athletic Department. 
The software was composed of a main program that launched 6 other programs based on user input. 
The user could manipulate data based on the following items, each corresponding to a different 
program: 1. Start New Track Meet, 2. Event Data, 3. Affiliation Data, 4. Participant Data, 5. Creating 
Heats, and 6. Results. 

Recollections 

The A/W/ATeam was introduced to Mr. Smith by their friend Scott Parks, whose dad was the Men's 
track and cross-country coach at EMU. Mr. Smith had knowledge of a very expensive database program 
tailored for Athletic Directors, and wondered if EMU students could replicate the program. The A/W/A 
Team met with the A.D. and interviewed him about the functionality required of the program. The 
A/W/A Team quickly developed a prototype implementing some of the functionality and showed it to 
the A.D. However, it really wasn't a polished program and ran exclusively on the Atari computer 
instead of on the EMU mainframe computer. Interest died after that, and the program was never 
completed or delivered. 
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KOOKY DIVER (1986) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-kookv-diver 31438.html 



Game Play 

The object of Kooky Diver is to swim from your boat to the ocean floor, retrieve treasures from a giant 
clam, and swim back to return it to your boat. All the while, you must avoid a school of fish, a shark, and 
the closing clamshell. You only have three divers to complete your mission. While not moving, you are 
constantly descending at a slow rate toward the ocean floor. You can use your joystick to move in any 
direction to move and avoid the shark and fish. If you are hit by a shark or run over by the school of 
fish, you die immediately and precede head-first toward death and Davy Jones' Locker. When you reach 
the clam, you must wait until it opens up before you can retrieve the treasure. The treasures change 
each time you collect one. The first treasure is a pearl, the second one is a trophy cup, and so on. The 
opening and closing of the clam is random, so you must tread water waiting for it to open, all while your 
oxygen is running out. Once the clam is open, the diver must swim to the treasure, press the fire 
button to retrieve the treasure, then quickly make it back to the boat before the oxygen level reaches 
zero. The oxygen runs out much faster when you are weighted down by the treasure. Once you return 
the treasure, your mission starts over and you must retrieve the next treasure until all three of your 
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divers have died. You can place the treasures on the coral reefs to each side as a way to not run out of 
oxygen. Some of the larger items require this "rest stop" in order to bring the item to the surface. If 
your oxygen is less than 50 percent when you reach the surface, it will be restored to 100 percent. 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 

Yes, he's back and he's kookier than ever. But this time, instead of climbing 
another building, Kooky has taken the opposite extreme and has begun a search 
for lost treasure. On his dives, he will encounter black pearls, treasure chests, 
pistols, vases, steering wheels, and many other treasures. But what Kooky 
doesn't know as he begins his expedition is that not only are there a dangerous 
shark and a school of man-eating piranha to block his path, but that a giant 
clam has swallowed all of the treasure! You, as Kooky, will have to dive for the 
various treasures and attempt to bring them up to the salvage boat. To move 
Kooky in any particular direction, just move the joystick in the corresponding 
direction. To tread water, push the joystick in any of the diagonal directions. 

You must time it just right so that the clam's mouth is open when you touch the 
treasure in order to have a chance to make a successful salvage. If the mouth is 
open and you are touching the treasure, merely press the fire button on the 
joystick and you will have picked up the treasure. Of course, if you touch any 
part of the clam when its mouth is closed, you will lose a life. After you have a 
treasure in your possession, you will use up your limited supply of oxygen rather 
quickly. Luckily, there are three coral reefs for you to deposit your treasure on 
while surfacing for more oxygen. Provided that your current oxygen level is 
below 50 units, you will completely fill your tanks every time you bring your head 
out of water. To drop off a treasure on any reef, all you must do is make sure 
that Kooky is only touching the yellow portion of the reef. At this point, the 
treasure will automatically be set there with no further actions required. To pick 
up a treasure again, simply press the fire button while touching the treasure as 
before. Of course, any collision with the piranha or the shark will cause instant 
death and send Kooky plummeting toward the ocean floor. After three deaths, 
your game will end and the high score will be shown. At this point, you can press 
the "START" button on the computer to start a new game with three new divers. 

You may end up doing this quite a few times at first because after all, nobody 
ever said that diving was easy! 

The ultimate goal of the game, however, is to deposit your treasure in the boat 
that is moving across the top of the screen. To do this, just touch the boat and 
your treasure will appear inside. At this point, a new treasure will appear inside 
the clam, and you can now try to get this treasure to the boat. 

Recollections 
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Kooky Diver was primarily written by Eric Anschuetz. The game is really unique and not patterned after 
any commercial arcade or home game. The top row with the waves and the boat implement a rough 
scroll technique. The diver, fish, shark, and pearl are obvious uses of the four Player/Missile graphics 
allocated on the Atari 8-bit computer. The coral reefs, the waves, the boat, and the clam shell are 
implemented using redefined characters. 

A technique that is used in this game and many other A/W/A games is the background sound effect, 
since games are much more boring without them. Since the games were written in BASIC, there really 
wasn't time to play a real melody during the display list interrupts. So the A/W/A Team used a 
technique where an assonant tone is produced through the Pokey sound chip and it sounds as if it is a 
wavering tone. It's kind of annoying after a while, but it is much better than silence and could be 
accomplished with one line of code! There was a lot of experimentation with the various parameters of 
the BASIC SOUND command to get a semi-pleasant-sounding background tone that sounded right. 

This game is really polished and doesn't have any glitches or bugs present as in some of the other games 
due to the fact that this game doesn't really push the envelope of what can be done with Atari BASIC. 
The game initializes really quickly and it doesn't take long to start a new game at the end of a game. 

A really good professional feature of this game is that at the end of the game, everything doesn't just 
freeze on the screen or go back to the start menu. After the game is over, the fish and shark keep 
swimming, and the bottom display toggles between the score of the last game and the high score / 
restart prompt. This implementation of an "attract mode" was something almost non-existent in type- 
in home games. 

This game was programmed in one long day after Eric dreamed of the game the night before. The 
concept art that Eric drew the morning after his dream looks nearly identical to the finished game. The 
game was quickly coded from there. From concept to game in 24 hours was pretty amazing for a 20- 
year-old! 
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Eric used his first display list interrupt in this game - an advanced technique that allowed some code to 
be written in the brief time that the TV finished scanning one line and then waited to scan the next line 
(all at 60 hertz). The DU was used to change the color of the score line at the bottom to green, thus 
using an additional color not normally available in the Atari's four-color display palate. 

More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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KOOKY KLIMBER (1984) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-kookv-klimber 31437.html 



Game Play 
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The gameplay for Kooky Klimber is simple - reach the top of the building by avoiding getting your hands 
caught in closing windows, while also being careful not to get hit by dropped dumbbells and flower pots. 
To move up a flight of the building, you must pull back on the joystick and then push forward. You can 
move left and right to dodge falling objects and closing windows by pushing left and right on the 
joystick. Once you near the top of the building, the objects quit falling because there are no windows 
above you from which they would fall. Once you reach the top of the building, you start all over at the 
bottom of the next building, represented in a different color. You continue the game until all of your 
three Kooky Klimbers are knocked off the building. 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 

In this game, you are Kooky Klimber. You have an incurable urge to climb tall 
buildings. After a period of initialization, you find yourself poised at the bottom 
of the first (grey) building. To ascend the building you must pull the joystick back 
and then push it forward. After this, your klimber will automatically climb to the 
next story. To move left and right simply push the joystick in the corresponding 
direction. Sound easy? Well, as you will soon discover, it's not! 

In the course of your climb, the people inhabiting the building will be opening 
and closing the windows. If one of these windows should close on your hands, 
you will find yourself falling head first towards the bottom of the building. A 
second nemesis directed towards your klimber is the falling objects. Clumsy 
residents above have a deadly habit of knocking flowerpots off of their 
windowsills. These flowerpots can do lethal harm to your klimber. If they should 
touch any part of Kooky Klimber, he will lose his grip on the building and fall to a 
quick death. 

Another clutsy group of people above you are the construction workers. They 
are continually dropping steel girders which flip through the air while they fall. 

As in the case with the flowerpots, any contact between your klimber and the 
girder will cause you to slip and fall. 

Your game starts with three Kooky Klimbers. A bonus klimber is earned after 
achieving 10,000 points. Once you reach the top of any building, you will be 
transported to the bottom of another building with a different color and harder 
skill level. 

Recollections 

Kooky Klimber was based on the Nichibutsu arcade game called Crazy Climber. The A/W/A Team 
played Crazy Climber at Mickey Rats arcade in downtown Ann Arbor, and loved the daredevil theme of 
climbing up a building. Crazy Climber featured comic-book-style cartoonish characters, catchy 
background music, and it was one of the first games that used a digitized voice ("Go For It!"). After 
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reading about vertical scrolling and Display List modification techniques for the Atari computers, the 
A/W/A decided that this would be the ideal game to copy. Many "ripoff" clones in the 1980's used 
titles very similar to the original game, but with enough differences to presumably avoid lawsuits. For 
their Crazy Climber knockoff, the A/W/A Team thought of the clever title of Kooky Klimber which also a 
"double K" alliteration. The game makes use of the Player/Missile graphics available in the Atari. The 
title character was one obvious Player/Missile graphic, then there were other Player/Missile Graphics in 
the form of items that fell from above, including a flower pot and a spinning dumbbell, all patterned 
after the original game. 

The main player was animated so that he moved his arms and legs up and down as he climbed up the 
building. These animations were fairly easy to sketch out in the 8x8 character limitation. The A/W/A 
Team used graph paper to draw the characters, then drew the 8-bit binary multipliers in the columns 
above and wrote the 0-255 value corresponding to each row of the character on the right side of the 
character. Each of the 4 frames in the animation was drawn out, and repeatedly re-written in the 
Player 0 character map as the animation sequence took place with each move up the building. The body 
of the character "scrunched", or "compressed," as the character animated, and this was actually an 
unintended bug due to incorrect positioning of the animations and a missing a row of the data when it 
was programmed. Since it actually looked pretty good, the A/W/A Team kept it in the animation 
sequence. There was also a nifty 4-note sound effect that corresponded with the animation sequence 
with each move up the building. 

Each level had opening and closing windows that were modified in the Atari's Display List. The timing of 
the windows opening and closing was perfect for gameplay, and therefore made a really challenging 
game. When the windows closed on the hands of Kooky Klimber, or he was hit by a flower pot or 
dumbbell, he fell to the bottom of the building. The scrolling for this effect was really quick, and often 
Display List glitches could be seen because Atari BASIC couldn't handle the modifications to the memory 
fast enough. The glitch was something like a quick jerking of the screen, that would only last l/60 th of a 
second, but it could be seen occasionally. The vertical scrolling of the building was implemented as 
rough scrolling (8 bits at a time) as opposed to fine scrolling (1 bit at a time). The glitch occurred when 
the graphics scrolled though a "page" of memory (256 bytes). To modify the Display List to do this 
required changing two bytes (most significant byte (MSB) and least significant byte (LSB)) on the 8-bit 
computer to address the 65536 (2 A 16) memory space. These changes were supposed to be done during 
the vertical blank time when there was just enough time to write a little bit of code during the vertical 
blank interrupt (VBI). When done in BASIC outside of the VBI, each byte (MSB and LSB) needed to be 
modified sequentially and that caused the glitch because for a brief period, the memory location being 
pointed to was not correct. 

Once Kooky Klimber reaches the top of the building, the score is displayed on a separate screen, and he 
starts at the bottom of the next level. The next building is implemented as a different color, the 
windows open and close at a faster rate, and the items fall from the top of the screen faster as well. 
There really wasn't room to display the score and lives remaining on the main scrolling screen, so it was 
only displayed at the end of each building and at the end of the game. Another problem was that it was 
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difficult to mix text and graphics, so a display list modification would have been necessary to position a 
line of text, and that would have been difficult to implement. 

The falling flower pots and dumbbells were very well done. The dumbbells rotated as they tumbled 
from the sky. Also, with each vertical move of Kooky Klimber, the falling objects moved in tandem with 
the building. In other words, instead of falling at a rate of speed independent of the moving building, as 
the building scrolled down, the falling objects moved quicker in relation to the sky so they would move 
with building at the same rate. This extra level of realism took extra time to implement, and many 
arcade games even ignore these kinds of details. Every once in a while, the falling objects had a glitch 
where they were distorted. Obviously, it was some sort of memory over-write that may have occurred 
when Kooky Klimber was loaded after another program, but the bug was never fixed. It was rare, but 
occasionally a misshapen falling object comes on the screen. 

Kooky Klimber was the first game that was sold by the A/W/A Team. They sent a long technical write¬ 
up describing the game's instructions and programming techniques along with a cassette of the BASIC 
listing to COMPUTE! Magazine. A few weeks later, they received a letter from the editor offering $400 
for the rights to publish the games. The A/W/A Team was absolutely thrilled that they got paid for a 
game they loved writing and playing initially for only themselves. Unfortunately, the game was never 
published by COMPUTE! 





More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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KOOKY’S QUEST (1985) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-kookv-s-auest 2834.html 



Game Play 


The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 


Kooky's Quest is an action adventure game. You play using the keyboard and a 
joystick in controller jack one. There are two skill levels: expert and beginner. In 
a beginner game, you have a map of the dungeon to follow. If you like the 
challenge of mapping a game, you should play expert, as you can only see the 
section of the dungeon you are occupying. 


Trapped in an ancient dungeon, your only hope lies in descending to the lowest 
level and retrieving the magic key. By returning to the first level with the key 
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and placing it in the lock located in one of the level-one rooms, you can free 
yourself from the evil dungeon and win the game. You have ten lives with which 
to accomplish this task. 

In order to move from one level to another, you must obtain a certain number of 
treasures (rings and chests). You need only one treasure to go from the first 
level to the second, but you need five in all other cases. Once you have enough 
treasures to change levels, you simply move to the up or down staircase, 
designated by a U and a D on the map. If you are playing without the map, you 
can only identify a staircase by the sound effects for going up and down, 
because the stairs aren't visible in the view of your immediate vicinity. 

Getting treasures is not an easy task. In each room, you will find a treasure and 
a monster. It is important to get to the treasure before the monster gets it, 
before you kill the monster, or before the monster kills you, since, in any one of 
these cases, that treasure will be lost to you. If you clear all the rooms on any 
level and don't have enough treasures to move to another level, you will be 
forced to wander that level forever. 

As you enter a room, you are asked to choose which weapon you will use. Listed 
at the bottom of the screen are the six weapons available to you. Simply press 
the number of the weapon you want to use. Three of the weapons, the sword, 
axe, and mace, are swinging weapons. To swing any one of these, you press the 
fire button, then push the joystick to the left or right. The knife, lightning bolt, 
and fireball are throwing weapons. The procedure for using one of these is the 
same as for a swinging weapon, but it will travel across the room until it hits a 
monster, a treasure, or the wall. Your choice of weapon is very important, since 
each type of weapon has a different effect on each monster, taking from one to 
six hits to kill the monster. 

There are six varieties of monsters you may encounter during your quest. These 
include vampire bats, giant hobgoblins, wicked skeletons, venomous serpents, 
decaying mummies, and worst of all, malevolent spiders which can catch you in 
their webs and inhabit only the lowest level. 

As a variation of Kooky's Quest, instead of attempting to escape the dungeon 
with as many lives as possible, you can go for points, seeing how many you can 
accumulate before you lose all your lives. A treasure is worth five points and a 
monster is worth ten. 

The following gameplay instruction for Kooky's Quest was published in Antic Magazine. 

Trapped in an evil dungeon, your only hope of escaping is to descend to the 
lowest level, retrieve the magic key, and use it to unlock the portal at the 
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uppermost level. Playing Kooky's Quest uses the keyboard and a joystick in port 
one. There are two skill levels. In the beginner game, you're aided by a 
displayed map of the dungeon, which is erased for the expert game. To move 
from one dungeon level to another, you must obtain enough treasures-rings and 
chests. You need only one treasure to descend from the first level to the second, 
but you'll need five to reach each of the deepest dungeons. Once you have 
enough treasures to change levels, go to the up or down staircase, shown with a 
D or U on the map. If you are playing without the map, you can identify a 
staircase by sound effects, because the stairs aren't in your view. 

Getting treasures is not an easy task. In each room, you will find a treasure and 
a monster. It is important to get to the treasure before the monster gets it, 
before you kill the monster or the monster kills you. In each case, you'll lose the 
treasure. If you clear all the rooms on any level and don't have enough treasure, 
you'll be forced to wander that level forever-or until you stop the game. You 
have ten lives for the entire game. 

You'll be asked to choose a weapon as you enter a room. Available weapons are 
listed at the bottom of the screen and can be selected with numbers. The axe, 
mace and sword are swinging weapons-press the fire button and move the 
joystick from left or right. The knife, lightning bolt and fireball are throwing 
weapons. They are used in the same way as swinging weapons - except they 
continue moving in a straight line until they hit something. Choose your 
weapons with care. Each has different properties. You'll find that some require 
six hits to kill, others only one hit. Note that while fighting, you can only attack 
to the left or right, and can't protect yourself from above or below. 

You can encounter six types of monsters - vampire bats, giant hobgoblins, 
wicked skeletons, venomous serpents, decaying mummies and malevolent 
spiders that inhabit only the lowest level. Your adventurer. Kooky is shown as a 
happy face symbol. Instead of escaping the dungeon, you may choose to 
accumulate points. Treasures are worth five points, defeated monsters ten. 

Recollections 

Kooky's Quest was based on Exidy's Venture arcade game. In Venture, the primary character was called 
"Winky" and had a smiley face just like the Kooky's Quest main character. Venture also took place in an 
underground maze, where you wander through halls, enter rooms, and battle the villains in the rooms. 
All of these game traits are also found in Kooky's Quest. 

Kooky's Quest took quite a long time to write and finish. The original name for the game was Dungeon 
Quest. The game was started before Kooky Klimber, but Kooky Klimber was finished first and set the 
standard for the Kooky-named series of games which included Kooky's Quest and Kooky Diver. 
Development got stuck in an almost infinite loop as John Weisgerber tried several techniques to get the 


28 



scrolling maze to work smoothly. The wait was worth it, since the scrolling effect looks completely 
smooth in all four directions, and was implemented through manipulation of text strings in memory. 

Kooky's Quest was sold to Antic Magazine for about $200 or $300, and was the first A/W/A program 
published because Kooky Klimber and Night Rescue were purchased by COMPUTE! Magazine but never 
published. The A/W/A Team was so excited when the magazine reached the news racks, that they had 
their parents take them to Fairlane Mall in Dearborn to purchase the magazine the first day it came out. 
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More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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Antic did a great job with the concept artwork for the game as you can see below! 
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NIGHT RESCUE (1984) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-night-rescue 31439.html 



Game Play 

Night Rescue puts you on a daring attempt to rescue civilians with your hot air balloon before they are 
taken prisoner by the invading forces. The player must navigate through a lengthy journey through a 
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city without crashing into any of the buildings or ground, avoid obstacles, and rescue as many humans 
as possible. The enemy consists of tanks, rockets, helicopters, and a manic warplane. You must 
maneuver through a city-scape and reach your ultimate destination where you rescue the last hostages. 
Each rescued hostage gives you 100 points. 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 

Night Rescue is a game in which you guide your balloon over enemy territory on 
a secret mission to rescue your country's spies who have infiltrated the enemy's 
city. The journey , which begins over the mountains on the outskirts of the city, is 
extremely dangerous because any contact with enemy terrain or the enemy 
reconnaissance plane and helicopters results in the loss of one of only five 
balloons. In addition to this, the enemy has planted double-agents who will 
destroy your balloon if you attempt to rescue them. Upon reaching the outer 
edge of the city you must make a soft landing on the top of the headquarters of 
the resistance, at which point you will begin another run above the city. 

The balloon is controlled by moving the joystick left, right, up, and down to move 
in the corresponding direction. The balloon's position may be "fine-tuned" by 
pressing the fire button while moving the joystick left and right. Moving the 
balloon up and down is made treacherous by the forces of inertia acting upon it. 

To land on the resistance's headquarters you must be both scrolled and "fine- 
tuned" all the way to the right. Scoring in Night Rescue consists of 100 points for 
each rescued agent plus a bonus for reaching the resistance's headquarters 
which increases for each new set. At the end of the game you may play again 
by simply pressing the START key. 

Recollections 

Night Rescue was actually based on four different games. The first two games were home computer 
games called Protector, by Synapse, and The Tail of Beta Lyrae, by Datamost. Both of these games were 
clones themselves of the third game it was patterned after, Williams Defender. Protector, The Tail of 
Beta Lyrae, and Defender were side-scrolling shoot-em-ups. Night Rescue copied the city-scape 
environment of the home video games, while also incorporating the rescue objective of Defender where 
the main player had to land on top of the characters to be rescued at the bottom of the screen. The 
fourth game that Night Rescue was patterned after was Choplifter, which was initially developed for the 
home computer scene and, in a very rare turn of events, was subsequently released as an arcade game. 
Choplifter was also a side-scroller, featured a helicopter as a main player, and also had a mission where 
characters at the bottom of the screen had to be rescued. Night Rescue, however, was not a shoot-em- 
up, but rather a game of skill and timing. 

Night Rescue had a beautifully rendered city-scape of futuristic buildings and made use of the many- 
colored palette of the Atari 8-bit computers. The game was rendered in an Atari Graphics mode that 
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wasn't available directly from BASIC, but could be accessed by writing various memory locations within 
the Display List with the correct values to enter the "hidden" mode. This mode added additional colors 
to each character. There was even a special trick that "borrowed" a color from Player/Missile graphics 
to be used as an additional color in each of the characters. 

Mapping out the city-scape on graph paper was a creative process. Instead of black and white (l's or 
0's) colors for the bit-mapped 8x8 characters, each character in this special graphics mode could have 4 
or 5 colors. The city-scape was several screens wide, and was rough-scrolled through 8-bits at a time. 
Unlike many side-scrollers that force the player in one direction, usually left to right, the Night Rescue 
player could control the direction of horizontal scrolling with the joystick. The player's mission was to go 
from the left side of the city-scape to the right-side, through several screens of buildings and caves, but 
at any time the player could turn around and go back left to rescue more humans for points or avoid 
obstacles like the flying plane. 

Originally, since the game was set in Germany during WWII, a Nazi flag was used as a recurring character 
in the landscape. Eric, Robert, and John realized that a Nazi flag may not be politically correct if the 
game were to be published, so they changed the flag to be a modern Germany flag with three colors. 
They also added extra redefined characters to change the helicopters' orientation from left to right. 

The main player controlled a hot air balloon. The balloon was moved left/right/up/down with the 
joystick. When the balloon moved left and right, the terrain scrolls in the opposite direction. A really 
unique method of control was added to fine-tune movement. This was accomplished by pushing the fire 
button while moving left and right. If the fire button was pushed while moving, the balloon moved 1 
pixel at a time left or right, and the background didn't scroll. This maneuver was essential to master in 
order to rescue some of the humans tucked away in very difficult to reach areas in the gamescape. The 
balloon movement was also affected by very realistic vertical momentum. The longer you held the 
joystick in a vertical direction, the more the momentum was built up and it takes a while to counteract 
this momentum to slow down and go in the opposite direction. This momentum, and the need to 
sometimes fine-tune movement with the fire button, made maneuvering in tight quarters very difficult. 

While the balloon mostly travelled from left to right, an out-of-control plane obstacle constantly got in 
the way of the player as the plane travelled from right-to-left. The plane actually moves in a sine-wave 
pattern, and the A/W/A Team initially actually used a mathematical equation to control the plane. The 
equation's sinusoidal movement was taxing on BASIC and slowed it down, so another algorithm was 
used that moved the plane up or down a pixel as it travelled until it hit an upper or lower limit and 
reversed direction. The plane stuck to the top-third of the screen as it moved from right-to-left. When 
the plane departed the left side of the screen, another one soon followed from the right. The plane was 
always in the way of the player, and constantly forced the player to adjust positions. 

One interesting part of the game that gave the player an option was the cave section. The player had 
the option to navigate through a tight cave which was loaded with lots of humans to rescue for points, 
or the player could take the somewhat easier route above the caves but always in the path of the plane. 
This decision was really equally weighted one way or another, and the decision really depended on a 
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risk/reward strategy and the skill of the player. The gameplay of Night Rescue was very good - it was 
easy to get the hang of and very hard to master. Once the player reached the base at the right-end of 
the city-scape, he was rewarded with bonus points and started all over. The next time through, the 
plane flew a little faster and it was a little harder to complete the mission. 

Night Rescue was the second game that the A/W/A Team sold to COMPUTE! Magazine, again for $400. 
Like Kooky Klimber before it, for some reason the game was never published. One memory that John 
has to this day is that he always felt that he was (partly) to blame for Kooky Klimber and Night Rescue 
not getting published. The A/W/A Team believed Night Rescue was more polished and valuable than 
Kooky's Quest and wanted more money than the $400 offered for Kooky's Quest. John had a phone 
conversation with a lady at COMPUTE! Magazine that turned kind of hostile. He finally agreed to the 
$400 anyway when they lady said "take it or leave it". John was hardly diplomatic at that age! They 
eventually published "Crazy Climber" games for other platforms, but never published either Kooky 
Klimber or Night Rescue, so John always wondered if that was a snub due to that phone call! 



More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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OVERFLOW (1985) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-overflow 3847.html 



Game Play 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 

In Overflow, you're a plumber trapped in the central conduit of a network of 
pipes. Water is advancing relentlessly toward you through the secondary pipes. 

If the water gets far enough, it will flood the main pipe, drowning you and 
ending your game. This is a situation you (as a devout plumber) obviously want 
to avoid. Luckily, you can temporarily reverse the flow of water in a pipe by 
hurling your plunger down the pipe at the onrushing column of water. Scoring is 
based on the fact that when the plunger makes contact, in addition to making 
the water recede, you earn ten points. Controlling the flow of water is simply a 
matter of moving up and down in the main pipe and throwing your plunger 
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down the pipes closest to the point of overflowing. Unfortunately', even if you 
manage to gain control of the situation, at five-hundred points the width of the 
main pipe doubles, making your job all the more difficult. Movement is 
controlled from a stick in port one. To move up and down in the central pipe, 
push the stick forward and back. To throw your plunger, push the stick left and 
right. 

The following gameplay instructions for Overflow were published in Antic Magazine. 
Dear Miss Goodmanners: 

Is there a correct way to stem a rising tide of bathroom back-ups 
while entertaining distinguished guests in my 49-room mansion? 

Concerned 

Dear Concerned: 

Miss Goodmanners prefers the term water closet... Sadly, 
overflow problems are part of our modern age and must be 
dealt with firmly and quickly. Miss Goodmanners would never 
commit the faux pas of embarrassing guests during a 
sumptuous banquet by confronting them with a mass of raw 
sewage. 

Miss Goodmanners would award you credit for decisively hurling 
your plumber's helper at each of the overflowing water closets, 
while tactfully running between pipelines without scaring the 
guests. Of course, sewage problems tend to get worse as a party 
wears on-especially if guests discover that the duck pate has 
disagreed with them. 

With apologies to our favorite etiquette columnist, this program 
uses players for the plumber, plunger and central pipe. All 
vertical motion is produced using a string printed at the correct 
place in memory. The main graphics mode is ANTIC5. 

An unusual technique here is the use of basically the same 
memory address for every line of the playfield graphics. Each 
line has its own LMS and the high byte on every one is set to the 
same page. The water is moved back and forth by incrementing 
the low byte on each LMS. The increment for each line is held in 
a one-dimensional array. If a column of sewage is hit by the 
plunger, the increment's sign is simply reversed. 
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Recollections 


This game was written entirely by John Weisgerber, but he graciously consented to credit the game to 
A/W/A authorship and even split the $200 to $300 from Antic Magazine for its publishing rights. This 
program uses Player/Missile graphics for the plumber, plunger and central pipe. All horizontal motion of 
the water flowing through the pipes is produced using a string printed at the correct place in memory. 
These were some pretty sophisticated techniques in the early days of BASIC programming. 

More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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PHOENIX (1982) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-phoenix 31474.html 



Game Play 

Phoenix had the player control a black and white ship at the bottom of the screen made up of multiple 
text characters, and a single large bird with flapping wings that dodged all over the screen. A press of 
the fire button on the joystick produced a vertical shot aimed at the bird. If the bird was hit, the player 
scored a point, and the bird would turn upside down and fall straight to the bottom and the player 
would try for the next bird. After 9 birds were hit, the game ended and the player was rated as "Phoenix 
Commander", "Bird Captain", "Butterfly Netter", or "Bird Watcher" depending on the score. 

Recollections 

Phoenix was the very first video game written by Robert Anschuetz of the A/W/A Team shortly after 
they got their Atari 400 for Christmas in 1981. The game was implemented in a simple text mode using 
an alternate built-in Atari font library called ATASCII "control" characters. The game was based on an 
example program called "Seagull Over Ocean" from the Atari BASIC Reference Manual that 
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demonstrated a seagull flapping its wings and flying around the screen. There were no special graphics 
techniques used to develop the game. This game had been missing for almost 30 years, because the 
A/W/A Team did not back the game up to a PC using an SI02PC cable in the early 1990's. The game was 
retrieved from an original 5 floppy disk in 2017 and finally saw the light of day again. 
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PIRACY (1982) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-piracv 31476.html 



IMMEDIATE DAMAGE:6 
OVERALL DAMAGE:0 


TORPEDOES:19 
TREASURE $0 
CAPTURED 
BURIED:6 
LONGITUDE:24 
LATITUDE:27 


FUEL:247 




THE ENEMY HAS 
DESTROYED YOU BY 
RAMMING YOUR SHIP. 
YOU HAVE COLLECTED 
-44 DOLLARS. 


Game Play 

In the game of Piracy, the player navigated a ship using a map. The goal was to collect treasure before 
your immediate or overall damage was too great, you were rammed by a ship, or you used too much 
fuel. 

Recollections 

Piracy was a simple game that was written in Atari Graphics 0 text mode. There were no special 
graphics techniques used to develop the game. This game had been missing for almost 30 years, 
because the A/W/A Team did not back the game up to a PC using an SI02PC cable in the early 1990's. 
The game was retrieved from an original 5 floppy disk in 2017 and finally saw the light of day again. 
This game was an inspiration for the much superior Piracy II that was written by the A/W/A Team 
several years later. 
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PIRACY II (1986) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-piracv-ii 31441.html 


PIRACY II 

PRESS ST ART TO BEGII 
ANSCHUETZ/MEISGERBER/ANSCHUETZ 
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SCORE: 450 


SHIPS: 0 
MISSION: 1 
GAME OVER 


Game Play 

Piracy II is a multi-screen epic battle over the high seas. The object of the game is to confront a pirate 
ship at sea by sailing through the ocean and finding ships that are protecting treasure located on any of 
many nearby islands. Once a pirate ship has been encountered, a mini-game is launched where you 
control the pirate ship at the bottom of the screen and you must shoot a pirate guarding his ship. The 
ship at the player's control must dodge a constant bombardment of cannon balls aimed your way. 

After the pirate on the ship has been defeated in the mini-game, the player is returned to the open seas. 
At this point, the player may land the boat on the island the ship had been protecting, and another mini¬ 
game is launched. This mini-game forces the player to navigate through a moving maze of pirates as he 
makes his way to the treasure chest located on the far side of the island. The key to this mini-game is 
observing the pattern of movement by the pirates on the island. If the treasure chest is successfully 
reached, the player is returned once again to the open seas to seek out additional treasure by 
confronting other ships guarding other islands. 

Recollections 

Piracy II is a sequel to the original Piracy game that was written several years before Piracy II. Piracy II 
was written by Eric and Robert Anschuetz. The game of Piracy II is a multi-stage game, which is very 
rare for BASIC games in the 1980's. The game uses fine vertical and horizontal scrolling, which is a 
nearly impossible using Atari BASIC. The fine scrolling was made possible with Assembly Language 
routines written by Eric Anschuetz, and called using the BASIC USR command. Even so, there was 
occasionally a flicker when the scrolling became too much for the processor. Eric and Robert did not 
have an Assembler cartridge, so all of the assembly language was "hand assembled" by Eric. This is the 
only primarily BASIC game (with Assembly added for scrolling) that they know of that has a smooth 
scrolling horizontal and vertical multi-screen display. 

The ship is a Player/Missile graphic, but most of the other graphics are based on redefined characters. 
The pirate ship mini-game scene is very reminiscent of the ship-battle scene in the Pirates of the 
Caribbean ride at Disney World, and was probably influenced by it. In fact, the whole entire game was 
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probably influenced by that ride since the A/W/A Team had just gone to Disney World a couple years 
before the game was written. 



43 































RAMSES’ REVENGE (1983) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-ramses--revenge 31475.html 


5066 YEARS AGO, THE PHARAOH 
RAMSES WAS SHALLOWED UP BY THE RED 
SEA WHILE IN PURSUIT OF MOSES WHO HAD 
FREED THE SLAVES OF EGYPT. HOWEVER, 
BEFORE LEAVING THE GLORY OF EGYPT, 
RAMSES TRANSFERED ALL OF HIS POWER 
TO THE GREAT GOLDEN KEYS, PRAYING TO 
THE EVIL GOD SETH THAT THEY MIGHT 
REMAIN SAFE) HIDDEN IN THE SACRED 
PYRAMID. 

ONLY NOW, HAVE YOU AND ANOTHER 
EXPLORER STUMBLED ONTO THIS PRIVIOUSLY 
UNDISCOVERED PYRAMID. HILL ONE OF 
YOU RECOVER THE ALL POWERFUL GOLDEN 
KEYS, OR WILL BOTH OF YOU FALL VICTIM 
TO THE CURSE OF T1 \ H 


PRESS TO BEGIN 


■■■■■■ !■■■■■■■■■ »■■■■ 

THE LEGEND OF 

■■m ■■■■■■■ !■■■■■■ mtmmmm 

THE CURSE IS TRUE! 

IT 1:3 RAMSES^REVENG^^^j!^^™ 




Game Play 


5000 Years ago, the Pharaoh Ramses was swallowed up by the Red Sea while in pursuit of Moses who 
had freed the slaves of Egypt. However, before leaving the glory of Egypt, Ramses transferred all of his 
power to the great golden keys, praying to the evil god Seth that they might remain safe; hidden in the 
sacred pyramid. Only now, have you and another explorer stumbled onto this previously undiscovered 
pyramid. Will one of you recover the all powerful golden keys, or will both of you fall victim to the curse 
of Ramses' Revenge? 


Two players start at opposite ends of a pyramid, and race their way underground and then to the top 
chamber. Along the way, moving cobras, bats, and other obstacles get in the way. The first player to 
the top wins and is greeted by a musical melody. 


Recollections 
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Ramses' Revenge was the first quality playable game that the A/W/A Team wrote. This game was 
loosely based on Konami's arcade game Tutankham as well as Stern's arcade game Lost Tomb. The 
A/W/A pyramid-based game was written in the Atari's text mode called "Graphics 0" in BASIC. It made 
extensive use of re-defined characters that allowed a new bit-mapped character set to replace the built- 
in characters of the Atari computers. This game was lost for about 30 years because it wasn't 
transferred to a PC with the SI02PC device in the 1990's. In fact, the A/W/A Team didn't even 
remember the name of the game and referred to it as "the pyramid game." In 2017, the A/W/A Team 
found the game on the backside of a floppy disk and recovered it again with SI02PC. 


45 



ROBOT DUNGEON (1985) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-robot-dungeon 4411.html 


ROBOT DUNGEON 

PRESS START TO BEGII 
ANSCHUETZ/HEISGERBER/ANSCHUETZ 


ENTER DEVICE NAME - CASSETTE USERS 
SIMPLY USE C: - DISK USERS USE SAME 
FILENAME AS USED IN CREATOR 
?D!DROID.HAZ 


READY DISK AND THEN PRESS klUII:!!) 
ON KEYBOARD 
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DUNGEON CREATOR 


A/N/A 


ENTER THE NAME OF YOUR DUNGEON# 
EXCLUDING ALL PUCTUATION, AND LIMITED 
TO 15 CHARACTERS7DUNJIN| 


DUNGEON CREATOR 
A/W/A 


ENTER FILENAME. CASSETTE OWNERS USE 
SIMPLY C: DISK USERS USE D:DUNJIN.DAT 

7DUNJIN.DATB 


Game Play 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 
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ROBOT DUNGEON is known for its deadly robots, electrified walls, and teleports. 
Rumor has it that no one has ever escaped alive! Nobody knows for sure, but 
the best estimations are that ROBOT DUNGEON is comprised of 3 levels of 400 
rooms each, arranged in a 20x20format. 

The object of the game is to traverse from the lower-left room of each level to 
the upper-right room, all while amassing as many lives and as high a score as 
possible. Upon reaching the upper-right room of the 400 rooms on Level 1, you 
must touch the staircase and you will then procede automatically to walk down 
to the next most treacherous level. Level 2. At this point there is an animation 
sequence that will give you time to relax. Sit back and enjoy your figure as he 
jumps down the stairs, approaches the door, and slips through just in time! 

Similar to what you did on Level 1, you must also reach the upper-right room of 
Level 2 (labeled room #800). Touch the staircase here and you will be rewarded 
with viewing the animation sequence once again, and will proceed to the very 
dangerous Level 3! 

If you manage to guide yourself to the upper-right room of Level 3 (labeled room 
#1200), and touch the escape key, you will be greeted with an ending animation 
sequence showing yourself leaving the dreaded ROBOT DUNGEON (and as you 
will see, apparently just in time!). 

ROBOT DUNGEON is no ordinary dungeon, either! No, ROBOT DUNGEON is 
rather a 3 level MAZE with only 1 escape route possible for each level. 

Therefore, it is heartily recommended that you map each level. 

Throughout ROBOT DUNGEON there are various treasures and traps which with 
you must be acquainted with. The most abundant of these figures is the 
"SYMBOL OF LIFE". (It looks like a sideways figure eight). Touching this symbol 
will up your hit point total by one. The hit point total (which is found on the 
lower-left of the score window) decreases by one every time you touch a robot, 
touch a wall, or touch a teleport (more on teleports later). It is very important to 
get the "SYMBOL OF LIFE" in each room or you will have a very short adventure 
in ROBOT DUNGEON, indeed! 

A symbol closely related to the "SYMBOL OF LIFE" is the "TREASURE CHEST". 
Within the "TREASURE CHEST" lies 5 hit points. Needless to say, don't pass up 
many of these! 

Another symbol is the "ASSORTED GOLD". This pile is worth 250 points! Akin to 
the "ASSORTED GOLD" is the "DIAMOND", which is worth 1000 points! 
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Perhaps the most useful symbol is the deadly "ROBOT ZAPPER". This symbol 
looks like a zig-zag line and kills every robot in a room when touched! 

Something to definitely stay away from are the dreaded "TELEPORTS". These 
are shaped like black bits and bring you back to the first room of the level which 
you are on! They also cost you one hit point! Stay away from these at all costs! 

You are not defenseless as you wander ROBOT DUNGEON. You are equipped 
with a pistol which can be aimed in any direction. To shoot, point your joystick 
in a direction and press the fire button. The killing of each blue robot is worth 10 
points. Notice how I said blue robot. The orange ones are indestructible! On 
Level 1, there is one orange robot and 4 blue robots in each room. On the 
second level, there are2 oranges and 3 blues. And on the third level, there are 3 
oranges and only 2 blue ones! 

You will note that as you pick up symbols, they are gone forever but robots are 
resurrected each time you enter or reenter a room. 

By pressing any key during the course of play, you can freeze the action. Press 
another key and play resumes. You may also save the game in progress by 
pressing any one of the console keys (START, SELECT, or OPTION). Note that on 
a disk system, saving a game will overwrite the previous version of your maze. If 
you want to have several different stages of your progress, you will have to 
change disks. Be sure to save your game very frequently! 

When your hit point total reaches zero, your game is over. Pressing the start 
button will give you the choice of loading in a new dungeon or replaying the old 
one at the same point it was at when you began. If it was a saved game in 
progress, you start where the saved game started. However, all symbols that 
you had gotten since you began the session will now be gone. 

The following Robot Dungeon gameplay instructions were published in Antic Magazine in a special Disk 
add-on. This was not the exact write-up that the A/W/A submitted with the game, but most of these 
instructions were borrowed from their original write-up. 

ROBOT DUNGEON is known for its deadly robots, electric walls, and 
teleports. Rumor has it that no one has ever escaped! Nobody knows 
for sure, but most believe that ROBOT DUNGEON is comprised of three 
levels of400 rooms each. Rooms are arranged in a 20 x 20 grid on each 
level. The object of the game is to traverse from the lower-left room of 
each level to the upper-right room while collecting as many lives and 
points as possible. Upon reaching the upper-right room of Level 1, touch 
the staircase to get to Level 2. Here, you'll see a cartoon that will give 
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you time to relax. Sit back and enjoy the figure as he jumps down the 
stairs and slips through the door just in time! 

Complete Level 2 the same way you completed Level 1. (The upper-right 
room is #800). Remember to touch the staircase to see the cartoon and 
advance to Level 3. If you manage to get to the upper-right room of 
Level 3 (room #1200), touch the key and you'll see another cartoon! 
ROBOT DUNGEON is no ordinary dungeon, either! It is a 3-level maze 
with only one escape route on each level. (We recommend you map 
each level.) ROBOT DUNGEON has many treasures and traps which with 
you must be acquainted. The most abundant of these is the "SYMBOL 
OF LIFE." (It looks like a sideways figure eight). Touching this symbol will 
increase your hit point total by one. The hit point total (on the lower- 
right of the score window) decreases by one every time you touch a 
robot, touch a wall, or touch teleport (more on teleports later). It's very 
important to get "SYMBOL OF LIFE" in each room or you'll have a very 
short adventure! A symbol closely related to the "SYMBOL OF LIFE" is 
the "TREASURE CFIEST". Each one holds 5 hit points. Another symbol is 
the "ASSORTED GOLD". This pile is worth 250 points! The "DIAMOND," 
like "ASSORTED GOLD" is worth 1000 points. The most useful symbol is 
the "ROBOT ZAPPER." It looks like a zig-zag line and kills every robot in a 
room when touched! Stay away from "TELEPORTS." These are shaped 
like black pits and return you to the first room of the current level. They 
also cost you one hit point. 

You are not defenseless as you wander ROBOT DUNGEON. You have a 
pistol! Aim and fire it with your joystick. Each blue robot you destroy is 
worth 10 points. Orange robots are indestructible. Level 1 has one 
orange robot and four blue robots in each room. Fligher levels have 
more orange robots and fewer blue ones! NOTE: When you pick up 
symbol, it's gone forever, but robots are resurrected each time you enter 
a room. By pressing any key during the course of play, you can freeze the 
action. Press another key and play resumes. To save a game in progress, 
press a console key (START, SELECT, or OPTION)! 

Saving a game will overwrite the previous version of your maze. If you 
want to save several different stages of your progress, you will have to 
change disks. Be sure to save your game very frequently! When your hit 
point total reaches zero, the game is over. Pressing the START button 
gives you the choice of loading a new dungeon or replaying the old one 
from the last SAVE. NOTE: All symbols of the previous game are lost. 
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To play ROBOT DUNGEON, you first need to make a maze with the MAZE 
CREATOR PROGRAM, DUNGEON.CRT! This program will ask you to name 
your dungeon. This is NOT the disk filename. Type in a name for the 
dungeon, and press return. Next, you are asked to give a disk filename 
for your dungeon data. After pressing [RETURN], there will be a 15-20 
minute wait for the maze to be created. Don't worry about the numbers 
being printed. For those of you who are interested, the first column 
stands for the level, the second is the room number, and the third and 
fourth are used for determining exits. Once the program is through, you 
can RUN the main game, ROBOTS. BAS. When the computer asks you for 
a filename, type in the same name you gave it in the Maze creator 
program. Load the maze by pressing RETURN several times. You do not 
need to make a new dungeon every time you play, use the same one 
over and over until you complete it. When you're done with one maze, 
you can create a new one! 


Recollections 

Robot Dungeon features a hexagonal maze generation game that borrows heavily from game elements 
of the arcade game Berzerk, as well as Adventure for the Atari 2600. John Weisgerber discovered a 
BASIC maze-generating algorithm he read in the Ypsilanti High School library in the June 1981 issue of 
Creative Computing in an article called "Bee Amzazed." The "Bee Amazed" algorithm generated a maze 
with hexagonal rooms that when pieced together looked like a honeycomb, with the entry point in the 
lower-left corner of the maze, and a single exit point at the upper-right corner of the maze. Each room 
in the generated maze has 1 to 6 exits leading to adjacent rooms. John used the basis of this algorithm 
to create a maze generator at the heart of the game. Instead of representing each room as a six-sided 
hexagon, each room is represented as a rectangular shape with the two potential doors on both the top 
of each room, two potential doors on the bottom of each room, and one potential door on each on the 
left and right sides of each room. Therefore, a total of 6 potential doors in each room corresponded to 
the 6 sides of a hexagon that was part of the maze. The rooms fit together like staggered puzzle pieces. 
When you exit a door in the upper right of one room, you enter the door in the lower left of the room 
above. 

Robot Dungeon was a really long game for the player to complete. There were three levels of 400 
rooms, for a total of 1200 rooms. To reward the player, the A/W/A Team actually programmed cut- 
scenes at the end of each level with humorous cartoons much like the Pac-Man intermissions. Besides 
the cut scenes, the programming of this game provided two additional advanced features for a BASIC 
game. The game offered a "pause" feature and it also provided an "auto save" feature. 

The robot movement algorithm was written so that with each iteration of the main processing loop, the 
robots compared their location to the location of the player and headed toward him. The robots were 
large redefined characters. The main player was a Player/Missile graphic, as was the shot that the main 
player could shoot at the monsters. 
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A separate maze generation program was written to accompany the main program. This needed to be 
run to create a maze, prior to being able to start the game. The maze could be saved to either cassette 
or disk. When the A/W/A Team wrote Robot Dungeon, they hadn't yet bought a disk drive. Knowing 
that there was a limitation of filename length in Atari DOS 2.0, but not knowing if it was 8 characters or 
6 characters, the A/W/A Team instructed the player to name the file as "DUNJIN.DAT" instead of 
"DUNGEON.DAT" just to be safe. 

In order to remember the contents of each of 1200 rooms, a novel technique was developed by John. 

By using just one 8-bit byte for each room, individual bits represented which of the treasures or 
obstacles were in the room. This saved up to eight times the memory a traditional technique would 
have used. This game was also pretty buggy. Because the characters were jumping around, the 
algorithm for computing whether a missile hit a monster was not always accurate and the missile would 
just pass through the monster. Another bug would occasionally allow the player to go right through a 
wall and be trapped outside the playfield. This was because the comparison of a player collision with a 
wall or door was too slow to run every loop. One day, Eric and Robert received a phone call from Antic 
magazine where a game evaluator was stuck outside of a wall and asked what to do! The good news 
with that phone call was that it was a positive indication that the game was being considered for 
publication. Ultimately, it was published in a "Add-On Disk" edition that provided a floppy disk with the 
magazine to avoid typing in the complete program. 

One of the issues that prevented good gameplay with this game was the massive amount of rooms that 
must be traversed to complete the game. In the end, the A/W/A Team should not have made each 
maze 20x20. That is just too large to allow for satisfying game play. In 2017, Eric addressed this issue 
and updated both the main game and the maze creator to allow the user to create any maze size from 
5x5 up to 20x20, instead of the previous 20x20 maze. Eric also modified the game to allow a cheat to 
walk through walls and monsters so that you can relatively easily make it to the end of each level. A 
tricky part of the programming changes was that the code placed the random treasures in each room 
and the number of treasures was set based on a 20x20 maze, so he had to scale the number of treasures 
appropriately, and there was some tricky math in the code. 
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More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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SOKO-BAN (1988) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-soko-ban 4784.html 
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Game Play 

Sokoban is an addictive puzzle game that was popular to play on PCs about the same time as Tetris came 
out. After entering your initials and selecting one of 55 levels, your objective is to move several blocks 
into the landing area. To move a block, the player positions the character behind a block and pushes 
the joystick in the direction he wants to move the block. The difficult part is getting the player 
positioned behind each block, so the player needs to be careful not to push blocks against walls that he 
cannot maneuver behind. Each level is a different puzzle with a different room configuration that must 
be solved differently. At the bottom of the screen, there is a level indicator. Above that, there is a 
timer, plus indicators that keep track of the number of moves you make and the number of times that 
the blocks are moved. 

Recollections 

This game was written entirely by Eric Anschuetz. The program employs character set redefinition and 
no Player/Missile graphics. The game makes use of the Atari's built in real-time clock to keep track of 
the time it takes to complete each level. The game also has a separate level editor program that was 
used to create the various levels. Each level is stored on the disk drive, and loaded into the game as 
needed. Because of the limit of 64 files on the Atari DOS 2.0 filesystem, there was a limit to the number 
of levels in the game. 

Eric had played PC Sokobon at work during "lunch breaks" with some co-workers. This was in 1988 or 
1989 when there were very few PCs. Several engineers worked together to solve the puzzles. They 
ended up solving every one of them. The Atari game uses the same exact puzzles (plus a few extra 
levels that were built at Eric's work using the original PC game's level editor). 
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The game plays exactly like the PC original, but with slightly worse graphics. One of the screens on the 
original was impossible to solve (as Eric and his colleagues figured out), so it was modified at Eric's work 
and also in this game. This is the last game that the A/W/A Team ever wrote! 
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SPACE ASSAILANTS (1986) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-space-assailants 31442.html 


SPACE ASSAILANTS 

INITIALIZING 
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Game Play 
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Space Assailants is an obvious Space Invaders clone, with some slightly different twists. Instead of 
avoiding shots fired by the invaders, the player must dodge a starfield that constantly scrolls vertically 
from top-to-bottom and repeats. The game starts with only one row of invaders. After you clear the 
first set, the next set requires the player to shoot down two rows of invaders. On the next set, a third 
row of invaders arrives. The pattern continues until there are six rows of 6 invaders once you reach the 
6 th level, but the characters in rows 4-6 are a repeat of the same characters used in rows 1-3. 

The invaders move across the playfield until they hit one end of the screen, then they drop down a level, 
reverse direction, and head the other way. The invaders are arranged in a hovering position above their 
spaceship. Once the spaceship lands at the bottom of the screen, or the player loses all three lives, the 
game is over. The status banner at the top of the screen indicates the number of lives, the score, and 
the level. Once the game is over, an end-of-game screen shows you this information and lets you start 
anew. 

The following description of the gameplay was written by the A/W/A Team to be submitted to a 
computer magazine along with the game. 

In the game Space Assailants, you are earth's lone defender in a battle which 
takes place in the midst of a treacherous meteor shower. You must protect the 
earth from an invading fleet of evil aliens, while avoiding the hurtling meteors. 

Your main concern is keeping the mothership, which leads the enemy armada, 
from landing. Although your weaponry cannot breach the powerful shields of 
the mothership, you can prevent its landing by destroying the accompanying 
fleet of alien vessels. The fleet drops each time it reaches a side of the playfield 
in its back and forth motion. After the fleet has dropped ten times, the 
mothership is considered to have landed, and your game is over. If you are able 
to destroy the fleet before the mothership lands, you will move on to the next 
round. 

Rounds one through six consist of an alien fleet which increases in size from six 
to thirty-six at the rate of six per round. Rounds seven through twelve are 
exactly like one through six, but the aliens' speed is doubled. During rounds 
thirteen through eighteen, the aliens move slowly again, but the meteors travel 
at double speed. In rounds nineteen through twenty-four, both the aliens and 
meteors move doubly fast. Sets after this remain at the same level of difficulty 
as sets nineteen through twenty-four. 

If you are hit by a meteor, you lose one of three lives and must start your current 
round over. You score ten points for each alien vessel destroyed. Your score is 
located at the top and middle of the screen. To its left are lives remaining, and 
to its right is the round number. 

You may only fire one missile at a time, and you must wait until the missile 
either hits an alien or clears the screen to fire again. As the rounds progress. 
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and there are more aliens to contend with, you will find that the best strategy 
consists of destroying the end columns of assailants, thus lengthening the 
amount of time between drops of the fleet. Destroying the bottom row of aliens 
will not delay the mothership's landing. 

Recollections 

Space Assailants was primarily written by John Weisgerber and really pushed the envelope with what 
could be done with Atari Basic. The scrolling stars are actually in a different display list than the 
invaders, and the two screens are alternated very rapidly (every l/60 th of a second) so the eyes perceive 
them to be on the screen at the same time. In the screenshots above, only either the invaders or the 
stars are visible, but the images are combined for the player's experience. There is a flickering effect 
(like the one criticized so heavily in the Atari 2600 Pac-Man), but the flickering effect wasn't too 
dramatic on old raster-scan televisions. 

The banners on the left and right edge of the screen are Player/Missile graphics. The ship and its shot 
are also Player/Missile graphics. The stars are low resolution graphics pixels. The invaders are re¬ 
defined characters in multi-color mode, and they animate with every move in two different poses. The 
game makes use of the typical droning vibrato background sound effect used in may A/W/A games to 
take the place of a background melody. 

Eric originally wrote an assembly routine to be run during the vertical blank interrupt that would 
smoothly move the ship left and write based on joystick controls. It worked perfectly except for one 
problem: John's technique of allowing for interleaving the two graphics modes disabled the vertical 
blank interrupt, so you couldn't do both! The game as it stands uses BASIC to move the space ship and 
so it is not as smooth as it would have been in assembly language. 

The technique used in this game to interleave two graphics display modes was definitely not used in any 
other BASIC game or any other game that the A/W/A Team is aware of! 

More information about the technical aspects of this game can be read in the original accompanying 
article sent to computer magazines, A/W/A Game Write-Ups section of this document. 
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YAHTZEE (1987) 


http://www.atarimania.com/game-atari-400-80Q-xl-xe-vahtzee 31440.html 



Game Play 


Yahtzee is played like the standard dice game and has the same simple rules. The game can be played 
by 1 or 2 players. Once the five dice are rolled, the player has the option to re-roll any of the dice to 
improve his lot. The player then selects which category toward which to apply the dice combinations. 
There are several categories that must be filled. Of course, rolling all dice with the same number 
provides a Yahtzee. The player attempts to get the highest score possible for the Upper Total of rolls, 
which consists of getting 1-of-a-kind rolls of the 6 different dice face possibilities. The Lower Total 
consists of combinations that are similar to a poker hand. At the end of the game the Upper Total and 
Lower Total are added together to provide the final score. 


Recollections 


This is a very simple game, which is only text based. The dice and pointers to the dice and options are 
Player/Missile graphics, but everything else is rendered in BASIC Graphics 0 mode, which is 40 
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characters x 24 rows of text. A simple graphic representation of "Professor Yahtzee" is provided using 
standard Atari character graphics. 

Eric wrote this game by himself in his senior year of college (1987). The dice are made up of a 
Player/Missile graphic, and actually uses a character string to hold the graphics. Character Strings in 
ATARI BASIC had several functions for moving parts of strings around, and these functions were done in 
very fast Assembly language. Eric took advantage of these string manipulation functions to quickly 
change the characters in the dice. 

This was the second to last game ever written, just before Sokoban. 
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ALIEN ASSAULT 


5rir Tn?cn*jetz 
Robert Anschu*tz 



date: 10/28/83 


atari'easic 


ALIEN ASSAULT 
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You have been stationed on the soon in the year 2136. The 
reason? To protect solar collectors from possible destruction. 

You will do your protecting within a super-advanced, armed battle 
tank. The tank is made of a very strong alloy that cannot be 
destroyed. Think you are up to the ta&k? 

The moor, was discovered to have a vast resourse of area 
available ideal for the positioning of solar collectors. These 
collectors provide much ofthe earth's energy and are manditory for 
the survival of humanity. Your mission: protect the moon, and 
more specifically, the solar collectors from the ongoing ALIEN 
ASSAULT. 

You begin your mission in the eeriness of night. Intellegent 
radar indicates that you will have to continue your frenaious 
attack on the alien bombs on through the spectacular lunar sunrise, 
onto midday, through the next sunset, and onto another day. 

Before you begin ycur mission, you received with a supply of §0 
units of energy. As you shoot at the alien bombs with your lasers, 
however, your supply of energy will rapidly begin to decrease 
the rate of one unit per each laser fired. 

Earth intellegence has revealed that on the first series of 
attacks, the aliens will send out ten missies aimed to destroy ten 
of the solar collectors. During each successive onslaught, five 
additional missies will be sent until the maximum total of 40 is 
reached. In addition to more enemy bombs to worry about, on every 
other wave of bombings, the amount of solar collectors that the 
aliens have to destroy is decremented by one. This is due to the 
fact that the solar technicians are too busy fleeing back to earth 
to have time to make the necessary repairs. Malfunctions do happen 
occasionally even in this advanced age. 
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As each alien missis is launched by the alien armada trwarc 
the solar collectors, the indicator in the lower middle of the 
display will indicate whether the missle is the the west(left) 
or to the east(right). of your tank. To shoot a laser at one of 
the alien missies, position your crosshairs on top of the missle 
ar.d press tr.e fire button. A laser will be sent from ycur tank 
toward the spot in space directly in line with where the crosshairs 
are aimed. 

If you manage to line the crosshairs directly on top of the 
alien missle, the missle will be destroyed. Thenumber of missies 
remaining to be sent will be decremented by one. If you should 
miss the missle, one of two things may happen. First, the 
missle may hit a solar collector. If this should happen more 
than the amount of times allowable for each ambush, your game 
be over. Second, the missle may crash harmlessly on the 
surface of the moon, in which casecnothing happens. At the end 
of each set of ambushes, the color of the background will change 
to indicate the rising or setting of the sun. Pvery few sets, 
the missies will speed a bit in their defcent. 

ALIEN ASSAULT is a difficult game which requires manual 
dexterity as well as a strategy. Here are some hints. Always 
keep an eye on the indicator in the middle of the screen. This 
will tell you which direction to begin moving in. Always begin 
moving immediately. This will help you get to the enemy faster. 

Keep a mental ncte of where you are in relationship to the 
e-i'-re playing field. If you find you cannot travel any more 
in the direction in which you wish, you have reached the outside 
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boundaries and should change directions immediately. As you 
become more advanced in ALIEN ASSAULT, you will have a feel 
for when you have begun to travel toe far in a particular direction. 
Sacrifice a solar collector if you feel ycu are drifting a long 
way away from the center of the playfield. This may mean many 

collectors saved in the long run. 

Keep an eye out for the energy remaining. This means take 
carefully placed shots instead of machine-gun style. IF you 
do shoot machine-gun style, you will find that your energy supp_y 
will quickly run out and you will be forced to watch he_p_essly 
as your laet remaining 9 olar collectors are destroyed. 

Also watch the number of collectors destroyed in the lower 
right-hand corner of the screen. Always compare this to the 
number of collectors that are permitted to be destroyed in the 
particular ambush. Remember, this number starts at ten and is 
decreased by cne or every other wave. 

One final suggestion is to always keep your crosshairs 
positioned near the bottom.. This will give you that all-important 
last shot. This may prove to be the difference in casting anot.ner 
ambush or not. 

The rest of the article concerns itself with the technical 
aspects of ALIEN ASSAULT. It is not necessary for the reader 
to proceed any further, but I recommend that anybody serious 
in learning to program fast-action games read on. ALIEN ASSAULT 
features a dual-scrolling, colorful, high-resolution playfield. 

The playfield is composed cf an Antic 5 display and a custom 
text window. Where there are no graphics on scan-lines in ALIEN 
ASSAULT,are literally no graphics. Blank scan-lir.es have been 
inserted to maximize speed and minimize memory consumption. A 


66 



blank line does not require any memory. Ther is n: sense in 
defining a graph!os mode on a line which will hare no display :n 
it anyway. There is also no sense in scrolling a line with no 
graphics on it. This wastes time and, consequentally, speed. 

There is almost nothing as important as speed when it comes to 
writing an arcade-style game. 

The text window is located below the Antic 5 lines. Since 
this window is not located exactly where a normal text window would 
be, a POKE to locations 656 and 65 7 is necessary before printing 
to the text window. These lines tell where in text window memory 
to place the cursor. The necessary information is then printed. 

A dual-scrolling background is the only method that can be 
used to show true perspective. This type of scrolling has been 
used in the arcade marvels MOON PATROL and JUNGLE HUNT. In ALIEN 
ASSAULT, the mountains in the background seem much farther away 
than the solar collectors in the foreground. Thisf is due tc the 
fact that not only are they drawn at roughly the same size as the 
solar collectors, but they also move twice as fast. This creates 
a sense of depth. The mountains appear to be many times farther 
away the solar collectors do. 

The method of scrolling was discussed in our previous article 
NIGHT RESUUS. The method used in ALIEN ASSAULT is similar with 
the exception that ail lines are not scrolled equally. To scroll 
the mountains twice as fast as the solar collectors, it is necessary 
only tc scroll the mountains on every other time through the main 
loop. This is very easy to do and is performed in line 280* 

Another aspect of ALIEN ASSAULT worth mentioning is the 
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extensive (and somewhat ccmplecated J'Player-Ylissle movements. 

Taz-h alien missle must be kept track of even while off of the 
screen. This is accomplished by the complicated formulas in 
lines 220 and 290. As the playfield is scrolled either to the 
left or to the right, the players for the enemy bombs must be 
kept track of. The reason for this is tbt it adds professionalism 
to the program. 

The laser from the battle tank also presented problems. It 
was necessary to draw the laser from the center of the screen 
downward. The player is not allowed to go beyond 256 scan-lines. 
Also, it would be senseless for the bottom of the laser to not 
show up if the crosshairs were moved too high on the screen. 

A length of 200 was chosen for the player because this would 
eliminate both of those dreadful possibilities. The player cannot 
travel below 256 and the bottom never goes above the bottom* the 
pcreen. As the crosshairs are now limited, the laser always 
is completely visible but does not cause the machine -/t* error 
because the player^extended too far below the screen. 

Finally, if you would like a copy of the game but would r.ot 
like to type it in, vcu may send a self-addressed, stamped mailer, 
a blank cassette, and S3.00 to Robert Anschuetz, | "| 

| | Re sure to specify which program 

you wish. 
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'00 GRAPHICS 1:SETC0L0R 2,0,0:PDKE 16,64:P0KT 53774,64:DL=FEEK(560)+ 
256*FEEK(56l):POKE DL+14,23:POKE DL+18,2 

HO POKE 54276,4:SETCOLOR 0,8,4:P0SITI0N 5,9:? #6;" press start to 
begin " 

120 POSITION 9,13:? #6;"ANSCHUETZ/WEISGERBER/ANSCHUETZ" 

130 IP PSEK(53279)<?6 THEN 130 

140 GRAPHICS 1:PCEE 559,0:POKE 16,64:P0K X ’ 53 7 74,64:?M=12288:CF= 

10:SETCOLOR 0,14,2:SETCOLCR 1,13,10:SFTCCICR 2,12,6 

150 POKE 755,0:?0R A-12800 TO 12834:REAP P:POKE A,P:NEXT A:DATA 112 

160 DATA 112,112,112,112,112,112,112,112,112,112,112,112,69,0,58, 

66,35,51,69,0,59,66,35,51,2,2,2,2,66,0,0,2,2,2 

170 POKE 560,0:P0KE 56%50:POKE 12830,PEEK(660):P0KE 12831 ,PEHE(66i) 
180 GOTO 450 

190 ML-INT(RND(0)*2)+1:MX=INT(RND(0)*784)+120:MY=10:DS-0:NM=NM-1: 

IF NFKO THEN POKE 77,0:G0T0 410 

200 IF MX<(PE+20)*4 THEN POKE 656,0:P0KE 657,18:? "ItfEST" 

210 IF MX>(PE+20)*4 THEN POKE 656,0:P0KE 657,18:? "EAST" 

220 POKE PLY+ML,MY:MY=MY+2+(MIAD*0.25):IF MY>130 THEN POKE PLX+ 

ML,0:GOTO 350 

230 IF STICK(0)=7 THEN PE=PE+2*(FE<216) 

240 IF STICK(C)*11 THEN PS»PE-2*(PE>0) 

250 IF STICK(0)-14 THEN CHY=CHY-(CHY>40)*4:PCKS PLY,CHY 

260 IF STICF.(0)=13 THEN CHY*CHY+(CHY<;128)*4:POKE FLY,CHY 

270 IF STRIG(0)=0 THEN POKE 53278,0:PCKE PLY+3,CHY+1 :POKS PLX+3, 

124:EA»EA-1:POKE 656,1 :POKE 657,7:GCTC 300 
280 POKE 12814, PE/2'.POKE 12820,PE 

290 SMX»MX-PE*4 +40+0S:CS=OS+(ML=1)*-2+(ML=2)*2:POKE FLX +ML,(SMX>48)* 
(SMX<202)*SMX+(MIAD*O.25):G0T0 220 

300 ? EA;" ":SOUND 0,100,10,8:SOUND 0,102,10,8:SOUND 0,105,10,8: 
SOUND 0,110,10,8:S0UND 0,0,0,0 

310 IF PEEK(53260) THEN SOUND 0,200,2,10:F0R X=0 TO 20:NEXT X:SOUND 
0,0,0,0:PGKE PLX+ML,0:SC=SC+10C 

320 POKE PLX+3,0:P0KE PLY+3,250:PCKE 656,1:POKE 657,18:? SC;:IF 
PEEK(53260) THEN 190 
330 IF EA<1 THEN 760 
340 GOTO 280 
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350 HP*:nt((MX+OS)/4-0.5)+256+59:IF PSEK(HP)=13 THEN POKE HF,2€: 

SOUND 0,255,10,10:FCR X=1 TC 25:NEXT X 

360 IF PEEK(HF)-26 TEEN SOUND 0,0,0,0:30TO 190 

370 IF PEEK(HF)*11 THEN POKE HP,14:P0KE HP+1,15:MSI=MSL+1:GCTO 39C 
360 IF PEEK(HP)=12 THEN POKE HP,15:P0EE HP-1,14:MSL=MSL+1 
390 IF MSL70P THEN 760 

400 POKE 656,1:POXE 657,31:? MSL;:SOUND 0,150,4,10:FCR X=1 TO 50: 

NEXT X:SOUND 0,0,0,0:30TC 190 

410 FOR LN=1 TC 3:S0UND LN,0,0,0:NEXT LN:GH=Gfi+1:MIAD=MIAD+1:FE=108: 
NM=MIAD*5+10:0P=0F-0.5:IF NM>40 THEN NM=40 
420 IF GH>15 THEN GH=0 

430 SC=SC+(NS-MSL)*10:P0KE 656,1:POKE 657,18:? S';:EA=5C:M5L=0: 

FOR JW-1 TO 300:NEXT JW:P0KE 559,0 

440 POKE 656,1:POKE 657,7:? "50":P0KE 656,1:P0KE 657,31:? "0 H :G0T0 590 
450 RESTORE 630:FOR 1=1536 to 1706:READ A:POKE I,A:NEXT I:FOR 1=1774 
TO 1787:POKE I,0:NEXT I 

460 FOR I-PM+1023 TO PM+2047:P0KE I,0:NEXT I:FOR I=FM+1025 TO PM+1031: 
READ A:POKE I,A:NEXT I 

470 FOR I=PK+1281 TO PM+1296:READ A:POKE I,A:NEXT I:FOR I=PM+1793 TO 
PM+1797:READ A:POKE I,A:NEXT I 

480 FOR I-PM+1537 TC PM+1552:READ A:PCKE I,A:NEXT I:F0R I=PK+1799 TC 
PM+1992:POKE I,8:NSXT I 

490 POKF 704,132:P0K? 705,70:P0KE 706,70:P0KE 707,12:PLX»53248:PIY= 
1780:FLI=1784:P0KE 623,1 

500 POKE 1788,PM/256+4:POKE 53277,2:P0KE 54279,PM/256:Q=USR(1696): 

POKE PLL,7:P0KE PLL+1,16:POKE PLL+2,16 

510 POKE PLL+3,200:POKE 53257,2:POKE 53258,2:P0KE 53259,2 
520 POKE PLX,124:POKE PLY,80:CHY=80:POKE FLY+3,221 

530 PE»108:EA«50:NM=10:CH=PM:FOR 1=0 TC 5H:PCKE CH+I,PEEK(57344+1): 
NEXT I 

540 FOR X=8 TO 127:READ A:POKE CH+X,A:NEXT X:PCEE 756,CH/256:X=14848 
550 POKE X,INT(RND(0)*2)+i:X=X+1:PN=INT(RND(0)*5)+i:F0R X=X TO X+FN: 
POKE X,INT(RND(0)*6)+5:NEXT X 

560 POKE X,INT(RND(0)*2)+3:IF X<14995 THEN X=X+1:GCT0 550 
570 POKE 656,1:P0KE 657,7:? "50 0 0" 
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580 POKE 656,2SPOKE 657,5:? "EEERG* 

590 FOR X«15104 TO 15359:1? INT(RND(0)*5) +1 =1 THEN POKE X,11:X=X+1: 
POKE X,12:NS-»S+1JNEXT XsGCTO 610 
600 POKE X,13:NEXT X 

610 POKE 12814,54:P0KE 12820,106SPOKE 559,62:SOUND 1,199,4,3:SOUHD 

2,200,1,4:S0UND 3,201,2,3 

620 SETCOLOR 4 ,GH*2,8*(SH<i2 0) :G0TC 190 

630 DATA 162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106, 
141,255,6,142,253,6,24,169,0,109,253,6,24,109 

640 DATA 252,6,133,204,133,206,189,240,6,133,203,173,254,6,133,205, 
189,248,6,170,232,46,255,6,144,16,168,177 

650 DATA 203,145,205,169,0,145,203,136,202,208,244,76,87,6,160,0,177 
203,145,205,169,0,145,203,200,202,208,244 

660 DATA 174,253,6,173,254,6,157,240,6,189,236,6,240,48,133,203,24, 

138,141,253,6,109,235,6,133,204,24,173,253 

670 DATA 6,109,252,6,133,206,189,240,6,133,205,189,248,6,170,160,0, 
177,203,145,205,200,202,208,248,174,253,6,169 

680 DATA 0,157,236,6,202,48,3,76,2,6,76,98,228,0,0,104,169,7,162,6, 
160,0,32,92,228,96 

690 DATA 28,8,65,99,65,8,28,24,24,24,24,28,28,63,63,63,63,120,120, 
224,224,192,192,34,20,8,26,34 

700 DATA 24,24,24,24,56,56,252,252,252,252,30,30,7,7,3,3 

710 DATA 0,0,0,0,1,5,23,127,0,0,1,5,5,61,63,255,0,0,0,0,64,80,208, 

255,0,0,0,64,80,112,245,255 

720 DATA 0,2,5,85,87,127,255,255,160,168,88,85,e5,223,255,255,0,i28, 
164,e5,93,127,255,255 

730 DATA 0,0,160,149,85,85,253,255,32,164,84,85,87,127,255,255,2,10, 

137.85.223.255.255.255 

740 DATA 255,245,212,80,84,213,251,239,255,95,87,23,95,111,187,254, 

255.255.255.255.255.255.255.255 

750 DATA 255,255,255,255,209,68,209,245,255,255,255,127,31,71,31,255 
255,255,255,255,115,69,81,247 

760 FOR RA-0 TO 3:P0KE PLX+RA,0:SOUND RA,0,0,0,0:NSXT RAsSRAPHICS 17 
POKE 16,64 SPOKE 53774,64 

770 POSITION 5,10:? <6;" gaaie over " :POSITION 4,13:? #6;"score: "jS?: 
GOTO 77:0 
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Kocky D./Ar.schjetz/2 


Yes, he's back and he's kcckier than ever. Eut this 
time, instead of climbing another building, Kooky has taken 
the opposite extreme and has begun a search for lost treasure. 

Cn his dives, he will encounter black pearls, treasure chests, 
pistols, vases, steering wheels, and many othe^reasures. But 
what Kooky does^t know as he begins his expedition is that 
not only are there a dangerous shark and a school of man-eating 
piranha to block his path, but that a giant clam has swcilcwed 
all of the treasure! You, as Kooky, will have to dive for the 
various treasures and attempt to bring them up to the salvage 
boat. To move Kooky in any particular direction, just move the 
joystick in the corresponding direction. To tred water, push 
the joystick in any of the diagonal directions. You must time 
it just right so that thfclam's mouth is open when you touch 
the treasure in order to have a chance to make a successful 
salvage. If the mouth is open and you are touching the treasure, 
merely press the fire button on the joystick and you will have 
picked up the treasure. Of course, if you touch any part of 
the clam when its mouth is closed, you will lose a life. After 
you have a treasure in your possession, you will use up your 
limited supply of oxygen rathe* quickly. Luckily,there are 
three coral reefs for you to deposite your treasure on while 
surfacing for more oxygen. Provided that your current oxygen 
level is below 50 units, you will completely fill your tanks 
every time you bring your head out of water. To drop off a 
treasure on any reef, all you must do is make sure that Kooky 
is only touching the yellow portion of the reef. At this point, 
the treasure will automatically be set there with no further 
actions required. To pick up a treasure again, simply press 
the fire button while touching the treasure as before. Of 
course, any collision with the piranha or the shark will cause 
instant death and send Kooky plummetting toward the ocean floor. 
After three deaths, your game will end and the high score will 
be shown. At this point, you can press the "START" button on 
the computer to start a new game with three new divers. You 
may end up doing this quite a few times at first because after 
all, nobody ever said that diving was easy! 
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The ultimate goal of the game, however, is to depcsite 
your treasure in the boat that is moving across the top of the 
screen. To do this, just touch tfc boat ani your treasure will 
appear inside. At this point, a new treasure will appear inside 
the clam, and you cam now try to get this treasure to the boat. 
Now that you know how to play tb game, you can either type in 
the program now and begin playing immediately, or you can con¬ 
tinue tc read the rest of this article to learn just how KOOKY 
DIVER was written. 

This program uses the machine language vertical player 
movement routine from the article by Tom Sak (August, 1982) 
and combines it with two display list interrupts in order to 
make an attractive, fast moving arcade game. The first display 
list interrupt (Figure 1) occurs between the last antic mode 
four line, which is the last line of the actual display field, 
and the line of regular graphics mode zero, which displays the 
player's oxygen left, current score, and the number of divers 
remaining. This interrupt is used to change the character set 
pointer at memory location 54281 in such a way that the upper 
part of the screen will continue to display the redefined char¬ 
acters that are used to draw the boat, ccral reefs, and the 
clam, while the lower line of graphics zero will use the standard 
character set located at ROM location, 57344. During this 
interrupt, the color register at location 53272 is changed to 
produce a color of light green for the background of the text 
line, and the display list interrupt pointer is modified to 
point to the second display list interrupt which occurs on the 
next line. 

This second interrupt (Figure 2) is really the key to 
making the program look graphically appealing. In order to 
make the school of piranha and the shark move at the same speed 
without the use of this interrupt, BASIC alone would have to 
be used to move both of them. This would both slow down the 
rest of the program and cause a choppy jump of six pixels, or 
more, each time the fish moved. In order to provide smooth 
motion, machine language had to be used. As a beginning machine 
language programmer myself, I was a little hesitant to try to 
code this routine, but I decided to give it a try, and as you 
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can see, I successfully managed to do so. Hopefully with the 
comments that 1 have provided, you too can begin to write some 
short routines in machine language without even the use of an 
ASSFK3LER program, as I did. As in the first routine, it was 
necessary to modify the display list interrupt vector to point 
to the other interrupt, and it was also necessary to store any 
value in memory location 54282 in order to eliminate the scan 
line jump that is cften seen in many display list interrupt 
routines. 

As you can see, in the program many pictures are used to 
draw both Kooky and the treasures that .he must pick up. For 
this reason, at the appropriate times, the values of locations 
FDR and PDR+1 are modified to point to the proper drawings 
needed. This technique was successfully used to make Kooky 
animated, as well as making it possible to have eight different 
possible treasures to get. 

Again, to make the program look much better, the salvage 
boat at the top scrolls across the screen, and what’s more, 
its movement is contained entirely in just one line: 220. 

The scrolling routine is set up in lines 390 through 430 and 
is net even looked at by the program again. As it is plain 
to see, the little work required in setting up a scrolling 
routine is more than made up for by the spectacular visual 
effects of the scroll. 

One final comment is in order: When I first completed 
this program, I came up several hundred bytes short of fitting 
it into 16K of memory. For this reason, I used the variable, 
C0, and set it equal to zero at the beginning of the program. 
Then I proceeded to change all RND(O) statements to RND(C0), 
all SOUND 0,0,0,0 statements to SOUND CP,00,C0,CP , and all 
variables which were once set to zero were changed to be ini¬ 
tialized to CP. This technique alone saved enough memory to 
fit the entire program into 16K, and could have been used even 
more extensively to save up to a thousand bytes of memory, or 
more, on any given program. Of course, I wouldn’t have been 
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in any position at all to start thinking of saving a couple 
hundred bytes of memory if I hadn't used a redefined character 
set in the first place to save abcut seven thousand bytes by 
using an antic mode four screen instead of an antic mode four¬ 
teen screen. This also made is much easier tc redraw the clam 
every time it has to open and close its mouth. Just a few 
PRINT statements take the place of hundreds of PLOT and Dr.AWlC 
statements, so if you haven't started using these redefined 
character sets yet f I urge you to at least try and see just 
how easy they can be to use. Well, that just about covers all 
of the technical aspects of the game, while the rest of the 
program is written in a straight-forward manner that should 
be fairly easy to understand. 

If you don't have the time to type in KOOKY DIVER yourself, 
you can get a copy by sending $3.00 and a blank cassette in a 
self-addressed, stamped mailer to Eric Anschuetz, 101 E. Forest, 
Ypsilanti, Mi. 48197. Be sure to include the name of the program 
that you want. 
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Figure 1 

cos; 

Instruction 

BASIC Equivalent 

Comment 

72 

PEA 



Save the current value of A 

169,224 

LDA 

#224 

1*224 

Store 224 in A 

141,10,212 

ST A 

54 282 

POKE 54282,A 

Store A in 54282 

141,9,2*2 

STA 

54261 

POKE 54281,A 

Store A in 54281 

169,212 

LDA 

#212 

A*212 

Store 212 in A 

141,24,206 

STA 

53272 

POKE 53272,A 

Store A in 53272 

169,195 

LDA 

#195 

A=195 

Store 195 in A 

141,0,2 

STA 

512 

POKE 512,A 

Store A in 512 

104 

PLA 



Restore old value of A 

64 

RTI 



Back to BASIC 
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PA SI! 1 Equivalent 


C omrent 


Fi£ure 2 


COPE 

Instruction 

72 

PHA 

169,250 

LPA 4250 

197,208 

CMJ 205 

208,7 

3NE MOVE 

169,0 

LPA #0 

133,208 

STA 208 

24 

-girO- 

' 44,15 

230,208 

MOVE INC 206 

165,208 

LPA 208 

141,2,208 

STA 53250 

169,255 

LPA #255 

56 

SEC 

229,208 

SBC 206 

141,3,208 

STA 53231 

141,10,212 

QUIT STA 54282 

169,174 

LPA #174 

141,0,2 

STA 512 

104 

PLA 

64 

RTI 


1=250 

IF FEZK(208)C/:50 
THEN SOTO MOVE 

A*0 

POKE 206, A 

GOTO 

QUIT 

POKE 206,PEEK(208)+1 
A<PEEK(208) 

POKE 53250,A 
A=255 

poke 53251,A 
POKE 54282,A 
A=174 

POKE 512,A 


Save current value cf A 
Stcre 250 into A 
See if PEEK(208X>250 
If greater then go to MOVE 
Store 0 into A 
Store A into 208 
Clear Carry flag and 
force a branch to QUIT 
Increment contents of 208 
Store contents of 208 in A 
Store A into 53250 
Store 255 into A 
Set Carry flag 
Subtract contents of 20E 
Store A into 53251 
Store A into 54282 
Store 174 into A 
Store A into 512 
Restore old value of A 
Back to BASIC 
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K .Kl./Waisceroer/2 


fter reading the t*'o article? on ?, ’ graphics, by Ton -ak 
and 3ii eier (February and As-use, 1932)«we' decided that it 

would be easy to adopt their animation techniques toward an 
arcaie :arfie. After combinin'' ~ animation with roy'C’n scrpllin.', 

we carte up with KoOky klimber, a fast action arcade style game 
based loosely on a popular coin-op game. 

In this game, you are Kooky Klimber. You have an incurable 
urge to climb tail buildings. After a period of initialization, 
you find yourself poised at the bottom of the first (grey) 
building. To ascend the building you must pull the joystick 
back and then push it forward. After this, your klimber wil-|; 
automatically climb to the next story. To move left and right 
SimDly push the joystick in the corresponding direction'. Sound 
easy?' Veil, as you will soon discover, it's not! 

In the course of your climb, the people inhabiting the 
building will be opening and closing the windows. If one of 
these windows should close on your hands, you will find yourself 
failing head first towards the bottom of the building. A second 
r'fnvtls -iir'edtd towards yc : ;r ,kXin:e f r I - the falli^H object 3 : . 

;iumsy residents above have a deadly habit of knocking flowerpots 
off of their windowsills. These flowerpots can do lethal harm 
to your klinber. If they should touch any part of Kooky Klimber, 
he will lose his grip bn the building and fall to a quick: death. 

Anohhep cLyt-sy -rrOup tf pectin above you ape construction 
workers. They are continually dropping steel girders which flip 
through the air while they fall. As is the Case with the 
flowerpots, any contact between your klimber and the girder will 
cause you to slip and fall. 
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K.Kl./Weisrerber/3 


Your ~ar.e start's* with three ooky Klimbers. A. bonus, klimber 

is earned after achieving 10,000 points. Once you reach the top 
of any building, you will be transported to the bottom of another 
building with at diffeiervt -color and harder skill level. 

The sophisticated P/M graphics used in this game were 
actually quite easy to create using the machine language 
subroutine by Mr. Sak and Mr. Meier. Four images are used for 
the klimber and the girder, while the flowerpot uses only one. 
Every time through the main loop of the program, the variable 
DRAW is incremented in such a way that the following time through 
the loop, the next drawing will appear. For example, on the 
first time through the loop, the player appears to have both 
^hands on-the le'dg*-, tfftile one hand appears higher then She other 
on the next time through. These changing drawings continue until 
a complete cycle of three drawings is made, and then it starts 
all over. Also, at the beginning of the first loop of the 
program, a random choice of which object is to be dropped is 
made. If the flowerpot is dropped, the movement is achieved by 
3irriy incrementing Its Y°-t:b.s-iti.cn each time. -i» hd-^§ver• the 
girder is dropped, the movement is more complicated, because the 
girder uses animation much like the klimber. In either case, 
checks are made to see if the object hits the klimber or goes off 
the bottom of the screen. If an object has gone off the bottom 
of the screen, a new rand cm selection is ma&e tb d-^SUr-f^ine which 
object will fall next. 

The only other things necessary to do with the P/M graphics 
are minimal. For One thing, a check is made to see if the 
klimber falls off the left or right side of the building. It is 
also necessary to stop the objects from falling if the klimber 
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K. K1. / . e i sre rber/4 


r-ets tod 'lose *6 tha" .top of the build-in-. After all.* it would 

seem silly, or should we say "kooky > to have girders and 

flowerpots falling out of mid-air. finally, aside from checking 
to see if the kli&ber collides with the objects ,.which is tone, 

incidentally, using the player one collision register of 53261)* 
a check is needed to see if a window closes on his hands. This 
requires a fairly tricky step of overlapping two players. This 
is necessary because we only want to check for a window closing 
on his hands, not his feet. Therefore, after the klimber 
advances to the next floor of the building, a second player, 
which is defined to look exactly like the klimber's hands, is 
moved into the position of the hands. This is not visible to the 
gamer, and is a very effective way of determining: if a window 
has closed on the klimber's hands. Before the klimber 1 s 
next move, the additional hands are positioned off the visible 
telivision screen which essentially erases them. 

The next part of this article explains, in detail, the 
workings of a display list or DL, and briefly discusses the 
method of r@U^h; scrolling used in Kooky Klimber. 

If you don't know the details of how a display list works yet, 
it’s time to learn. A display list is a machine language program 
for antic, Atari's graphics chip. Since there are very few 
commands for antic, these programs are relatively simple. The 
DL really only tells antic Wo important thirds* t st, it tells 
antic which graphics mode it will display for each line on the 
screen. Second, it tells antic where it will find the memory to 
display on these lines. This is an oversimplified explanation* 
but not much. 
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K. K1./Weisrerbe r/5 


Right now you should realize that, at first, it is easier to 
modify an existing DL than to write your own. For instance, if 
you want to write a scrolling program in graphics 2 from BASIC, 
you'll probably want more screen memory than the 2^0 bytes given 
to you in graphics 2. In this case you could simply go into 
graphics 7# then convert the DL which is already there into a 
graphics 2 DL. This way you get 3840 bytes of display memory 
which is equivilent to 16 screens of graphics 2. One big advantage 
of this method is that by using the graphics 7 statement you 
absolutely protect your screen memory from infringement by the 
bA-5lc program, if, however, you want it every’ possible byte 
of memory, you can simply pick the address at which you want to 
start your DL and write it in at this point. This is the method 
we used in Kooky Klimber. We used basically a graphics 3 DL 
written in directly following the space reserved for our P/M 
graphics. This gave us enough space for a fairly tall building. 

<ow that you can see the usefulness of modifying a DL, I'll 
explain how. It's much easier to work with a DL if you have an 
idea of what one looks like, so, if you have an Atari handy, 
type in example program one. Running this program locates the 
memory address of the graphics 7 DL by going into graphics 7 then 
checking the values in addresses 560 and 561 which tell antic 
where to find the DL. The formula used to calculate this memory 
location is an important onei the first byte plus 256 times the 
second byte. There are two main types of instructions for antici 
one-byte and thpee-byte. This formula is inpov * ant be&fcuse ir. 
all three-byte instructions the last two bytes give a memory 
location using the formula, while the first byte serves to 
indicate the specific of the in.scructi.c 


83 
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>qw we ban go through and -examine the DL, instruction by 
instruction. The first three instructions in the DL are ail 
one-byte instructions. These tell antic to leave lines blank. 

The formula for this type of instruction is the number of lines 

i 5iu'i these instructichs- 

are 112\s on all Atari DL's» they tell antic to leave three sets 
of eight lines blank right away. These are used so the display 
won’t start a^>bve the top of your television screen. After these 
comes the first three-byte instruction. This is a load memory 
iclif or r; MS initr - ttionr -it telle antlc\whe^e to IBoh Jfr- the 
Item Or y it will -display d-i. tne screen. he first byte: of this 
instruction is a cbr&hination of the IMS indicator, which 'is 61, 
and a graphics 7 instruction, which is 13» for a total of 77. 
Actually, this instruction only tells antic where to find the 
memory for this first line of graphics 7• and it is possible to 
use these instructions to point out rSreory each of the line? 
individually. Fortunately, you don't have to do this, because, 
for each successive line after the first LMS: instruction, afttiC 
just uses the memory directly following what it used for the last 
line. As I said before, the last two bytes of a three-byte 
instruction are the ones that contain a memory pointer. So, 
by using our formula of the first byte (actually the second in a 
three-byte instruction) plus 256 times the second, you can calculate 
the start of graphics 7 display memory. After the LMS instruction 
come a lot of 13's. Each of these toils antic to display one 
line oT-§faphib;$, j cor.plefe list oi 

given in table one) just as the first byte of the IMS instruction 

did, except these 1c t the bid el 61 ('K:7 indicator^ or 

pointers. rirOetly following th/e; .rj^fhifes 7 
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is another LW$ Instruction followed fey three 2* s. This is the 
set of instructlbW for the text window, which is like a 

miniature display list within s display list. .ext core the last jf 

three bytes of the DL. These are a jump bn vertical blank or JVi 
I^*ry£ti>bn. This '.he ibCSCi'e- of- 3$* -c ;: - f fel , 

DL so it can run through the whole thing again (it: does this 
60 tines per second). The indicator for a JVB instruction is a 
65, Which is not added- to a graphics instruction. USin| the 
memory pointer formula asain, you can see for yourself that it 
-does indeed, poi'-ht;‘to ge?-iSnSn> "df th-S' Di. r The antic lfe-ry;ftions 

I've mentioned sc far-.a-ne enough to allow you to your v$vi 

DL, hut -fr complete ■ I'm'' far a,s I know) list of i-insft^.e^iOhs. is 
given in table two. 

Example program two utilizes the techniques I have previously 
discussed By converting a graphics 7 DL to graphies2. :It also; 
indices- a method of rbu-h scrollin~ in SASIC. HS first l'i-.s 
of the program puts the screen into graphics 7 and locates the 
beginning of the DL. The second line begins the 7 to $ conversion 
by changing the first Byte of the LYS instruction, which had 
been 77 (64+13) to 71 (64+7, since 7 is the antic code fibr 
graphics 2). Line 30 converts 11 more lines to graphics 2 for 
a total of 12 lines. Line 40 finishes off the conversion by 
poking in a JVB directly following the graphics 2 instructions. 

Since I don’t know how much memory everyone will use when typing 
this program in, the numbers for the pointer of the JVB : . are . .. 

found by peeking t-hs: "oMgdhai .graphics 7 <IVB. .ri# sfS&t- that, Chf 
rest of the old graphics 7 DL is still there doesn’t matter, 
since- antic v.ill never rel there, jumpin' to the : %bp b: '.he 
jritth tlfee -it rebc-hg-s the iuger >V5.. 
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Lines 50 through 125 give an example of simple rough scrolling. 
Now that you know the function of a load memory scan instruction, 

this method of scrolling should be easy for you to understand. 

Since the 1instruction tells antic where to find the first 
byte Of hemoTy it will 'use to display W the jell we have 

to do is change this instruction and antic will look where we tell" 
it to, making the image on the screen appear to move, Ih fact, 
this is ;what- lingers llhy;JTo. 1?5 ?°J "they change the- yalue ef 
the pointer part of the IKS by 20 (the number of bytes in one 
llrie ;;of rraphies Zh making thi a%t;efisk wffijk h# v heefi poked 
onto the screw 86am %p p# 

FE1 keep track of the va%uJj' lh the- second and "third bytes of the 
LMS instruction. If you don't understand exactly hew a memory 
pointer works, i'll try to clarify things a little. 'M a normal 
two digit number, say 27, there is a tens digit and a ones digit. 

In order to calculate the value of this number, you eb'®3 add thj 
ones digit (7) to ten times the tens digit (2). If,, however, you 
get a ones digit greater than nine, you must bump up the tens 
digit by one and drop the ones digit back down. This is how a 
memory pointer works, except that instead of ones and tens, you're 
dealing with ones and 256*si the first byte is the ones and the 
second byte is the 256's. You can now understand why, in line 
120, when PE goes above 255» must add one to PEI and subtract 
256 from PE. 

I hope this article has helped clear up some of the mysteries 
M th8 dl : or yw. rfj* 18 

limitless, and with a little experimentation you should be 

completely cg~ fortalle wepkinr with one. 
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:r;-ra'~; l - - r ~ z*:~ • “n -pa -y? .? v.'f ■. 

Example; Program One 

1; :liAZXl J, 7 i ZL=P -IX (560. '256». ZtK ,5=1, iSjUpHICS 0 

20 FOR X»DL TO DL+93 

30 PRINT X, PEEK (X) 

40 NEXT X 


Example Program Two 

10 GRAPHICS 7i OL=PSEK (560)+256*PSEK (561) 

20 POKE- DL+3.71 

30 FOR X*DL+6 fo EL+16« POKE X,7» NEXT X 

40 POKE 11 + 17 , 65 * -PtKS UE*l3,-P.Er/ '*" 2 ) » POKE 3I;+i9» PEEK (' 1 * 93 ) 

50 0':3TART=PEEK (OL*4)♦254*PE£K: (32*53PgGKE 0MSTART+130,10 

100 PE-PEEK (DL*4)i PEI-PEEK (DL+5) 

iio I? STICK(0)*14 THEN PE=PE|“20'i IF PE<0 TpEN pE;*PE+256i PEI-PEI-1 
126 IF S?ICK(0) = 13 THEN PS-rS^Oi IF FE>255 THEN PE*?S-256 i ?E1*PE1*1 
12'5 POKE DL+4,PEi POKE DD*5 , PEI1 GOTO 110 
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.able5: insert following Example programs 


Table Onei Graphics Codes 


^ATIC VOQE 


0 

x 

X 

X 

1 

2 

3 

4 

5 

6 
X 

7 
X 

8 


A'ITXC TTCIV A L 

r:;3TRVJTio:; 

. 2 . 

......3. 

.4. 

.5. 

. 6 . 

.7. 

. 8 . 

.9. 

.10. 

.11. 

.12. 

.13. 

.14. 

.15. 


COLW'JSxRCWS 

....40x24 
....40x19 

_40x24 

....20x24 
....20x24 
.... 20 x 12 
....40x24 
.... 80x48 
....80x48 
.... 160 x 96 
.... 160 x 192 
.... 160 x 96 
.... 160 x 192 
....320x192 


Table Two* Tisplay List Instructions 

1) graphics node instructinsi 2-15 

2) LMS« add 64 to graphics instruction, then memory pointer 

3) JVB 1 65 , then memory pointer 

4) DLI* interrupt, add 128 to graphics or JVB instruction 

5) horizontal scroll* value in register 54276 (0-15)• 

add 16 to graphics instruction 

6 verticle scroll* value in register 5^277 (0-15). 

aid 32 to graphics instruction 
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Co-Authors 
Eric Anschueta 
Robert Anschuetz 


7-8-84 


Atari BASIC 
24K cassette 
32 K disk 


Kooky*s Quest 
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Kooky*s Quest is an action adventure game* You play 
using the keyboard and a joystick in controller jack one* 

There are two skill levels! expert and beginner* In a 
beginner game, you have a map of the dungeon to follow. If 
you like the challenge of mapping a game r you should play 
expert# as you can only see the section of the dungeon 
you are occupying* 

Trapped in an ancient dungeon# your only hope lies 
in descending to the lowest level and retrieving the magic 
key# By returning to the first level with the key and 
placing it in the lock located in one of the level-one rooms# 
you can free yourself from the evil dungeon and win the 
game* You have ten lives with which to accomplish this task* 

In order to move from one level to another# you must 
obtain a certain number of treasures (rings and chests)# 

You need only one treasure to go from the first level to 
the second# but you need five in all other cases* Once you 
have enough treasures to change levels# you simply move to 
the up or down staircase, designated by a U and a Don the 
map. If you are playing without the map, you can only identify 
a staircase by the sound effects for going up and down, 
because the stairs aren't visible in the view of your immediate 
vicinity* 

Getting treasures is not an easy task* Ifl 1 each room# you 
will find a treasure and a monster.> It is important to get- 
tor the treasure before the monster gets it# before you kill 
the monster# or before the monster kills you, since, in any 
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one of these cases, that treasure will be lost to you. If 
you clear all the rooms on any level and don’t have enough 
treasures to move to another level, you will be forced to 
wander that level forever. 

As you enter a room, you are asked to choose which 
weapon you will use. Listed at the bottom of the screen 
are the six weapons available to you. Simply press the 
number of the weapon you want to use. Three of the 
weapons, the sword, axe, and mace, are swinging weapons. 

To swing any one of these, you press the fire button, 
then push the joystick to the left or right. The £nife, 
lightning bolt, and fireball are throwing weapons. The 
procedure for using one of these is the same as for a 
swinging weapon, but it will travel across the room until 
it hits a monster, a treasure, or the wall. Your choice 
of weapon is very important, since each type of weapon has 
a different effect on each monster, taking from one to six 
hits to kill the monster. 

There are six varieties of monster you may encounter 
during your quest. These include vampire bats, giant 
hobgoblins/-wicked skeletons, venomous serpents, decaying 
mummies, and, worst of all,malevolent spiders which can catch 
you in their webs and inhabit only the lowest level. 

As a variation of Kooky’s Quest, instead of attempting 
to escape the dungeon with as many lives as possible, you can 
go for points, seeing how many you can accumulate before you 
lose all your lives. A treasure is worth five points and a 
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monster is worth ten. To avoid typing in Kooky's Quest, 
which is fairly long, send a self-addressed, stamped mailer, 
a blank cassette, and $3«00 to Robert Anschuetz,Q 
I I Please be sure to specify 

Kooky's Quest. 
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Erie Anachuets 
Robert Anschuets 



For Atari with l6K 
ATARI BASIC 


Night Rftaq-ciUE 
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Night Rescue is a game in which you guide your balloon over 
enemy territory on a secret mission to rescue your country's 
spies who have infiltrated the enemy's city- The journey, which 
begins over the mountains on the outskirts of the city, is 
extremely dangerous because any contact with enemy terrain or 
the enemy reconnaissance plane and helicopters results in the 
loss of one of only five balloons- In addition to this, the 
enemy has planted double-agents who will destroy your balloon 
if you attempt to rescue them* Upon reaching the outer edge 
of the city you must make a soft landing on the top of the 
headquarters of the resistance* at which point you will begin 
another run above -the o ity* 

The balloon is controlled by moving the joystick left* 
right, up, and down to move in the corresponding direction* 

The balloon's position may be "fine-tuned' 1 by pressing the fire 
button while moving the joystick left and right* Moving the 
balloon up and down is made treacherous by the forces of inertia 
acting upon it* To land on the resistance^ headquarters you 
must be both scrolled and "fine-tuned 11 all the way to the right - 
Scoring in Night Rescue consists of 100 points for each rescued 
agent plus a bonus for reaching the resistance's headquarters 
which increases for each rtew set. At the end of the game you 
may play again by simply pressing the START key* 

The P/M motion used in Night Rescue is from the article by 
Tom Sak (February, 19&2) which lends itself remarkably well to 
games written in BASIC- The apparent inertia acting on the 
balloon Is created using a variable the value of which is 
constantly added to the y-position of the balloon* This makes 
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it necessary for the player to slow down to a stop then speed up 
again in order to change the direction of Ills verticle motion* 

The horizontal scrolling used in Night Rescue is achieved 
in much the sane way as the verticle scrolling in our previous 
game, Kooky Klimber* While horizontal scrolling does have a 
few twists of its own* the method is still fairly simple. If 
you didn't read, the Kooky Klimberarticle you may or may not know 
the importance of the Load Memory Scan or MS instruction as it 
pertains to scrolling* If you don't, here it is in a nutshell. 
The MS is the instruction which tells antic which memory to 
display for each line of graphics. By shifting the MS, and 
thus the memory antic displays on the screen, you can make 
something on the screen appear to move or scroll. The only 
other thing you need to know is that the MS is a three-byte 
instruction; the first byte indicates the instruction 1 s function, 
and the last two are a memory pointer* So when the first and 
second bytes of the memory pointer are mentioned, it actually 
means the second and third bytes of the MS* With this knowledge 
you will he able to follow the rest of this article fairly wall* 
In Night Rescue each row of scenery or terrain is allotted 
its own page of memory. One benefit of this is that since the 
second byte of the pointer in the UVTS of each, display line 
actually contains the value of the page on which the displayed 
memory is located, and this value never changes during the course 
of the game* checks dealing with the second byte of the pointer 
become unnecessary. Another reason for this type of memory 
arrangement is that it avoids an irritating flicker in the screen 
image which occurs due to the time lapse involved in the BASIC 
poke function if both values of the LMS pointer must be changed 
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simultaneously* Since each page of memory is 256 bytes long* 
and antic inodes four and five, which use 40 bytes per line, are 
used for the graphics, the terrain can he more than six screens 
long (which it is) without jumping over to another page- 

Even though poking the second byte of the LVfS pointer is 
avoided, each line of graphics must still have its own L^TS 
instruction to tell antic which part of memory to display for 
that particular line, Since each line of graphics is arranged 
as it will be displayed from the beginning to the end of the 
page, the same variable can be used to store the value which 
will be poked into the first byte of each MS pointer- This 
helps keep the BASIC program from becoming too slow, but.at 
is still necessary to keep the number of graphics lines down so 
that there are as few numbers to be poked as possible; poking 
locations from BASIC takes more time than one might think. 

In ’Might Rescue the number of moving lines is limited to four* 
three of antic five for the normal terrain, and one of antic four 
for the helicopters* The spaces on the screen (like between 
the helicopters and building tops) are^the result of blank 
line instructions which consist of the number of lines (up to 
eight) you wish left blank minus one times sixteen- The us# 
of those instructions eliminates unnecessary memory usage and 
makes things generally much neater- 

The display of score and the player‘s balloon# remaining 
is simply printed onto a custom text window. The address of 
the memory used for this window is found for the various amounts 
of memory in which Night Rescue is likely to be run by peaking 
the useful location# of 660 and 661- Another interesting capability 
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of the Atari used in Might Rescue is the option of creating; new 
character sets. By using location 756 to switch between two character 
sets* the helicopters are made to switch direction each time 
the player changes the direction of scrolling. The use of antic 
modes four and five along with P/flU- graphics results In a high 
resolution game which is also highly colorful. Although the 
scrolling used is technically considered rough, one-fourtieth 
of the screen is a not unsatisfactory jump which also keeps the 
game from being monotonously slow* 

We think you'll agree that we've stretched the game capacity 
of SASIC nearly to its limits with Night Rescue* With this 
article and the program itself as guides* you may come up with 
some interesting uses for horizontal scrolling of your own* As 
a final note, you may send a self-addressed stamped envelope plus 
three dollars and a blank cassette to Eric An sc hue tz, 

for a copy Might 

We make this offer because the program has quite a few data 
statements which you might net want to type in. In any casej 
don't worry; it won't be long till you see the next Anschuetz/ 
Weisgerber/Anschuetz game* 
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In Overflow* you’re a plumber trapped in the central 
conduit of a network of pipes* Water is advancing relentlessly 
toward you through the secondary pipes* If the water gets 
far enough,, it will flood the main pipe, drowning you and 
ending your game. This is a situation you {as a devout 
plumber) obviously want to avoid* Luckily, you can temporarily 
reverse the flow of water in a pipe by hurling your plunger 
down the pipe at the onrushing column of water» Scoring is 
based on the fact that when the plunger makes contact, in 
addition to making the water recede, you earn ten points. 
Controlling the flow of water is simply a matter of moving up 
and down in the main pipe and throwing your plunger down the 
pipes closest to the point of overflowing. TJnf ortunately, 
even if you manage to gain control of the situation, at five- 
hundred points the width of the main pipe doubles, making 
your Job all the more difficult. Movement is controlled 
from a stick in port one. To move up and down in the central 
pipe, push the stick forward and back. To throw your plunger, 
push the stick left and right. 

The program for Overflow is fairly simple. Players are 
used, for the plumber, plunger, and the central pipe* .All 
vertical player movement is implemented through the use of 
strings printed at the proper place in memory (by POKEing 
locations 88 and 89 to the correct addresses). The main 
graphics mode used is antic-five* The only unique technique 
used in Overflow is that of using the same memory (basically) 
for every line of the playfield graphics* Each line has its 
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own LMS, and the high byte on every one is set to the same 
page. Moving the water back and forth in the pipes is done 
by incrementing the low byte on each IMS by either positive 
or negative two. The increment for each line is held in a 
one-dimensional array. If a column of water is hit by the 
plunger, the increment's sign is simply reversed. 
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100 MEM-PEEK(106):DL=(MEM-5)*256iCH=(M 
EM-4)*2t§6:Pl -MEM-121 P2-MM-11;P3=(MEM- 
9)*256>S»(MEM-7)*256 

110 GRAPHICS g:SETCOLOR 1,3,2:DIM Q(10 
),A${46),B$(16)»FGKE 75g,0:POSITION 6, 
4: ? #61 "OVERFLOW” i GOTO 390 
120 POKE 89,PIiPOKE 756,MEM-4iPOKE 559 
,62(POKE 560,0(POKE 561,MEM-5:POKE 532 
51,120sPOKE 53248,123 

130 ? :? 1? t? :FOR X»1 TO 10:Q(X)-INT 
(RND(0>*2)*4-2:NEXT XtSC-OiPOKE 656,0: 
POKE 657,16:? "OVERFLOW" 

140 POKE 657,4:? "SCORE:0 "s:?QKE 6 
5?,26:? "HIGH:"jHCi:YX=33sPOKE 88,YX:P 
OSITION 0,0:? #6|A$(l?,30) 

150 QL=DLUsC=0:F0R X-DL+4 TO DL+31 ST 
HP 3: Y= INT (RND( 0) *11)+101: Y-Y+ (Y/20IN 
T(Y/2))sPOKE X,Y:NEXT X 
160 C=C+1:QL-QL+3 * POKE QL,PEEK(<5L)+Q(C 
) 

170 POKE 53278,0:IF QL>DL+28 THEN QL*D 
L+1:C=0 

180 ST-STICK(O):IF ST t 14 THEN YX-YX-16 
*(YX>33):POKE 88,YX:POSITION 0,0:? #61 
A${1? ,46) 

190 IF ST-13 THEN YX=YX+16*(YX<1?7):P0 
KE 88,YXfrl6iPOSITION00,01? #6jA$(l,30) 
200 IF ST-7 AND J=0 THEN PLX=133:PLY=Y 
X+3:J=4;P0KE 39,P2:POKE 88,YX+3*P0SITI 
ON 0,0:? #6(B${1,8);P0KE 89.Pl 
210 IF ST* 11 AND J-0 THEN PLX»H5iPLY“ 
YX+3iJ“-4:POKE 89,P2:POKE 88,YX+3iPOSI 
TION 0,0:? #6|B$(9,l6)(POKE 89,PI 
220 IF PEEK(53255)>3 THEN POKE ?07,148 
(GOTO 350 

230 IF JOO THEN GOTO 250 
240 GOTO 160 

250 IP PEEK(53253)>3 THEN 280 

260 POKE 53249,FLX:PLX-PLX+J 

270 IF PEEK(53253X4 THEN 300 

280 HQ=(PLY-20}/l6:IF SGN(Q(HQ))<>SGM{ 

J) THEN 330 

290 SOUND 0,100,10,1-0:£C=SC + 10:Q(HQ) = - 
Q{HQ)sPOKE 657,10:? SC 1:GOTO 320 
300 IF PLX>20O OR PLX<48 THEN GOTO 330 
310 GOTO 160 

320 POKE 77,Os IF SC-500 THEN POKE 5325 

9,3* POKE 53251,112 

330 POKE 53249,0:J=0:POKE 89,P2:F0KE 8 

8, PLY(POSITION 0,0:? #6,A$(1,8)sPOKE 8 

9, P1:POKE 53278,0 

340 SOUND 0,0,0,0;GOTO 160 
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350 J=0tP0KE 656,3*F0KE 657,91? "PRESS 
<STAR1> TO BEGIN"?!IF SC>KC THEN HC«S 
C 

36O YC=YC+(YC<255)-255*(YC=255)1 POKE ? 
04,YC»IF PEEK{53279)06 THEN 360 
370 FOR X*DL+4 TO DL+31 STEP JiPOKE X, 
108*NEXT XsPOKE 89,P2 iP0KE 88,PLY*POST 
TION 0,0*7 #6[A$(1,8):P0KE 53251*120 
380 POKE 89,P1sPOKE 88,YX*POSITION 0,0 
1? #6}" "(POKE 707150:POKE 53249,0* 
POKE 53259,1*GOTO 130 
390 FOR X-0 TO 511*POKE X+CH,PEEK(X+57 
344),NEXT XtFOR X*8 TO 23*READ A*POKE 
X+CH.AiNEXT X 

400 FOR X-DL TO DL+2*P0KE X,112iNEXT X 
tFOR X=DL+3 TO DL+30 STEP 3*POKE X,69* 
POKE X+l,108:POKE X+2,S/256*NEXT X 
410 POKE DL+33,66sPOKE DL+34,PEEK(660) 
tPOKE DL+35,PEEK(66l)iF0R X"DL+36 TO D 
L+38sPOKE X,2sNEXT XsPOKE DL+39,65 
420 FOR X=P3+32 TO P3+191*POKE X,255tN 
EXT XlFOR X=P1*256 TO P,3 t POKE X, Os NEXT 
XsFOR X=1 TO 46 jA$(X,X>" " * NEXT X 
430 FOR X=l? TO 30*READ AtA$(X)«CHR$(A 
+32)»NEXT X*A$(46,46}=" "sFOR X=1 TO 1 
6*READ A *B$( X)=CHR${A)sNEXT X 
440 POKE 623,1*POKE 54279,MEM-161POKE 
53277.3*POKE 704,4:POKE ?05,198*POKE 7 
07,51 

450 FOR X=S TO S+lOSiPOKE X,2iNEXT XiF 

OR X=S+109 TO S+146*P0KE X.lsNEXT XiFO 

R X-S+14? TO S+255sPOKE X,2*NEXT X 

460 SOUND 1,160,8,21 GOTO 120 

4?0 DATA 84,170,170,170,170,170,170,69 

,84,255,255,255,255,255,255,69 

480 DATA 14,14,14,4,31,31,14,14,14,14, 

10,10,10,10,33,35,35,255.255,35,35,33, 

160,128,128,255,255,128,128,160 
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ROBOT DUNGEON 
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ROBOT DUNGEON is known for its deadly robots, electrified 
walls, and teleports. Runor has it that no one has ever escaped 
alive! Nobody knows for sure, but the best estimations are that 
ROBOT DUNGEON is comprised of 3 levels of 400 rooms each, arranged 
in a 20 X 20 format. 

The object of the game is to traverse from the lower-left 
room of ea?.h level to the upper-right room, all while amassing 
as many lives and as high a saore as possible. Upon reaching 
the upper-right room of the 400 rooms on Level 1, you must touch 
the staircase and you will then procede automatically to walk 
down to the next most treacherous level, Level 2. At this point 
there is an animation sequence that will give you time to relax. 
Sit back and enjoy your figure as he jumps down the stairs, 
approaches the door, and slips through just in time! 

Similar to what you did on Level 1, you must also reach 
the upper-right room of level 2 (labeled room #800). Touch 
the staircase here and you will be rewarded with viewing the 
animation sequence once again, and will procede to the very 
dangerous Level 3! 

If you manage to guide yourself to the upper-right room 
of Level 3 (labeled room #1200), and touch the escape key, 
you will be greeted with an ending animation sequence showing 
yourself leaving the dreaded ROBOT DUNGEON (and as you will see, 
apparently just in time!). 

ROBOT DUNGEON is no ordinary dungeon, either! No, ROBOT 
DUNGEON is rather a 3 level MAZE with only 1 escape route 
possible for each level. Therefore, it is heartily recommended 
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that you map each level . An example map is given in figure 1. 

Throughout ROBOT DUNGEON there are various treasures and traps 
which with you must be acquainted with. The most abundent of 
these figures is the "SYMBOL OP LIFE". (it looks like a sideways 
figure eight). Touching this symbol will up your hit point total 
by one. The hit point total (which is foung on the lower-left 
of the score window) decreases by one every time you touch a 
robot, touch a wall, or touch a teleport (more on teleports later). 
It is very important to get the 11 SYMBOL OF LIFE" in each romm or 
you will have a very short adventure in ROBOT DUNGEON, indeed! 

A symbol closely related to the "SYMBOL OF LIFE 11 is the 
"TREASURE CHEST". Within the "TREASURE CHEST" lies 5 hit points. 
Needless to say, don T t pass up many of these! 

Another sybol is the "ASSORTED GOLD". This pile is worth 
250 points! Akin to the "ASSORTED GOLD" is the "DIAMOND", which 
is worth 1000 points! t 

Perhaps the most useful symbol is the deadly "ROBOT ZAPPER". 
This symbol looks like a zig-zag line and kills every robot in 
a room when touched! 

Something to definitely stay away from are the dreaded 
"TELEPORTS". These are shaped like black pits and bring you 
back to the first room of the level which you are oni They also 
cost you one hit point! Stay away from these at all costs! 

A summary of symbols is given in Figure 2 along with a 
sketch. 

You are not defenseless as you wander ROBOT DUNGEON. You 
are equipped with a pistol which can be aimed in any direction. 

To shoot, point your joystick in a direction and press the fire 
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button. The killing of each blue robot is worth 10 points. 

Notice how I said blue robot. The orange ones are indestructible! 

On Level 1 # there is one orange robot and 4 blue robots in each 
room. On the second level, there are 2 oranges and 3 blues. And 
on the third level, there are 3 oranges and only 2 blue ones! 

You will note that aa you pick up symbols, they are gone 
forever but robots are resurrected each time you enter or reenter 
a room. 

By pressing any key during the course of play, you can freeze 
the action. Press another key and play resumes. You may also 
save the game in progress by pressing any one of the console 
keys (START, SELECT, or, OPTION). Note that on a disk system, 
saving a game will overwrite the previous version of your maze. 

If you want to have several different stages of your progress, 
you will have to change disks. Be sure to save your game very 
frequently? 

t 

When your hit point total reaches zero, your game is over. 
Pressing the start button will give you the choice of loading 
in a new dungeon or replaying the old one at the same point it 
was at when you began. If it was a saved game in progress, you start 
where the saved game started. However, all symbols that you had 
gotten since you began the session will now be gone. 

To play a game of ROBOT DUNGEON, you first need to make 
a maze. To create a maze, you must use the MAZE CREATOR PROGRAM 
listed at the end of this article. This program will ask you to 
give a name to your dungeon. This is not the disk filename. 

Think of a name which you would like to call the dungeon, enter 
it, and press return. Next, you are asked to give a filename. 
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Cassette users simply enter "C:". Disk users should give 
"D:DUNJIN.DAT". After pressing return, there will be a long 
delay of approximately 15 minutes, as the maze is being created. 

Don’t worry about the numbers being printed, but for thaose of you 
interested, the first column stands for Ihe level, the second 
is the room number, and the third and fourth are used for determining 
a way out. After this is finished the program will prompt you 
to ready your disk drive or cassette recorder and you can now 
save your maze. 

Now you csui run the main program! This program will ask 
you for a filename. At this point, simply give the same one as 
you did in the creator. Ybb then load the maze in by pressing 
return a couple times, and your game will start. Note that 
you do not have to create a new dungeon each time you wish to 
play the game. Simply use the same one over and over until 
you complete it (saving it periodically, of course). When 
you are .done with one maze, you can then make another totally 
new one! Good luck! 
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Figure 1 
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In the game 3pace Assailants, you are earth's lone 
defender in a battle which takes place in the midst of a 

treacherous meteor shower. You must protect the earth from 
an invading fleet of evil aliens, while avoiding the hurtling 
meteors. Your main concern is keeping the mothership, which 
leads the enemy armada, from landing. Although your weaponry 
cannot breach the powerful shields of the mothership, you can 
prevent its landing by destroying the accompanying fleet of 
alien vessels. The fleet drops each time it reaches a side of 
the playfield in its- back and forth motion. After the fleet 
has dropped eight times, the mothership is considered to have 
landed, and your game is over. If you are able to destroy fc he 
fleet before the mothership lands, you will move on to the 
next round. 

bounds one through six consist of an alien fleet which 
increases in size from six to thirty-six at the rate of six 
per round. ounds seven through twelve are exactly like one 
through six, but the aliens' speed is doubled. "'uring rounds 
thirteen through eighteen, the aliens move slowly again, but 
the meteors travel at double speed. In rounds nineteen 
through twenty-four, both the aliens and the meteors move 
doubly fast. "ets after this remain at the same level of 
difficulty as sets nineteen through twenty-four. 

If you are you are hit by a meteor, you lose one of 
three lives and must start your current round over. You 
score ten points for each alien vessel destroyed. Your score 
is located at the top and middle of the screen. o its left 
are lives remaining, and to its right is the round number. 
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You may only fire one missile at a time, and you must wait until 
the missile either hits an alien or clears the screen to fire 
again. Ac the rounds progress, and there are more aliens to 
contend with, you will find that the best strategy consists of 
destroying the end columns of assailants, thus lengthening the 
amount of time between drops of the fleet. Destroying the 
bottom row of aliens will not delay the mothership’s landing. 

Space Assailants combines several capabilities of the Atari 
into a successful, relatively fast action game. The least 
common of the capabilities used is antic's ability to switch 
quickly between two display lists. In the case of Space 
Assailants, this allows the meteors, which are in graphics four, 
and the aliens, which are in antic four, to be displayed at the 
same horizontal level, as if the meteors and aliens were 
present simultaneously. Tince antic normally does sixty screen 
refreshes per second, each of the two display lists is used 
thirty times a second, or half as often as usual, so the quality 
of the screen image does suffer slightly, but this is negligible 
when cosiderine the overall effect. 

It is fairly simple to use two display lists instead of 
one on the Atari. The key is the jump on vertical blank, or JVB, 
insruction. This is the instruction placed at the end of a 
display list to tell antic that it can stop putting up new lines 
of graphics, and wait for vertical blank so it can jump up and 
begin its next screen refresh. The JVB instruction consists 
of three bytes. The first is a sixty-five, and simply tells 
antic that this is indeed a JVB. The last two are a vector 
memory address which points to the start of the display li 3 t 
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where antic will jump when it begins the next refresh. 

"o make antic use two display lists, the first step is 
to write two display lists into memory, and have the JVB of the 
: irst point to the second, and the JVB of the second point to 
the i irst. At first glance, it seer.s this alone would cause 
antic to switch between two display lists. However, at least 
while using Atari BASIC, antic doesn't use the address given 
as part of the JVB. Instead, as soon as it sees the sixty-five 
of the JVB, ar.tic refers to locations 56C and 561. This 
creates the problem of getting antic to forget what's in 5f0 
and 561, and look at the JVB addresses. Fortunately, there's 
a way to do this very easily from BASIC. Simply poking 
location 54256, the location normally used to enable display 
list interrupts, to zero, causes the Atari to stop referring 
to several registers in the first K of memory, including 560 
and 561. After antic stops using 560 and 561 to find the 
start of the display list, the only place it can go for the 
information is the address given in the JVB. 

Poking 54286 to zero solves the problem of having antic 
switch between our display lists, but it also creates several 
new problems due to some of the other registers w T hich cease 
to function normally. For example, after poking 54286 to 
zero, location 756 can no longer be used to switch character 
sets, and the Atari virtually forgets the meaning of the 
BASIC functions stick and strig. 

There are, as you can see by playing Space Assailants, 
ways to get around these problems. To get a response from the 
stick or strig functions, you must simply refer to the 
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hardware registers. For example, STRI^(O) is equivalent to 
PF^C 53264), and S^ICK(O) is similar to ?E5K( 5^016). In the 
case of the STICK function, there is a slight difference 
between what the value of the function would be and the 
value in the hardware register, but it's easy enough to 
figure out the proper values for the various stick positionst 
simply add 2^0 to whatever the STICK value for that position 
would be. For instance, if the stick is centered, the value of 
STICK(O) is fifteen, but PEEK(540l6) is equal to 255- 

In order to switch between two character sets while 
5^286 is poked to zero, the equivalent of the hardware 
register for 756 is used. This register is located at 5^297 
and is normally set to 255- Actually, a split second after you 
poke this location to soir.e other value, it is reset at its 
original value and, while the character set will flash to 
the new value for a sixtieth of a second (one screen refresh), 
as soon as the computer checks the value in 756 it will 
look for the character set in the position indicated there. 

'■'his is why you must normally use 756 rather than 5^297 to 
change character sets. After 5^286 is set to zero, the 
computer never refers to 756, so the computer will continue 
to look for the character set in whatever position you 
may have poked, if only for a moment, in 5^297• Just don't 
try to find out where you have placed the character set by 
peeking 5^29 7 » because it will already have been reset to 255 - 
"he case for register 559, which is the control register for 
antic, is similar to that for 756. 

Another problem created by poking 5^236 to zero is 
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that setcolcrs and the registers for the players colors are 
not reffered to. In "pace Assailants, the desired colors 
were simply set before poking 5^286 to zero, but there are 
surely hardware registers which can be used to change colors 
around while 5^286 is set at zero. 

'^hat just about covers the problem of using two display 
lists in a game written purely in Atari SA3IC, but there are 
several other portions of the Space Assailants program which 
will interest you. ?irst, there is the movement of the meteors 
and of the fleet of aliens. This movement is achieved, 
primarily, by changing the value of the load memory scan 
or L ,r 3 instruction in each of the display lists. In the 
case of the meteors, since there are ten bytes in a line of 
graphics four, the value in the LIS is incremented by ten or 
twenty per loop, depending on the skill level. In the case 
of +he fleet, the LIS is used only to create the horizontal 
movement and is incremented by either .25 or .5 per loop, which 
means at most the fleet moves in every other loop. As an 
indicator for when the fleet hits the side and must reverse 
direction and drop, two players have been placed at either 
side of the playfield. Whenever the value in the clli3ion 
register for either of these players is greater than one 
(a star placed randomly behind one of the players may cause 
a value of one), the value of a variable which was being 
added to the value in the fleet’s L"13 is made the negative 
of what it previously was. This causes the 'lest to reverse 
direction. Simultaneously, one of eight blank line instructions 
in the fleet's display list is converted from zero to 112, thus 
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moving the assailants down on the screen. he next time the 
fleet hits a side the next blank line instruction will be 
converted until, after eight drops, the game ends, or until 
the set is cleared, at which time all the blank line instructions 
are reset at zero for the next round. 

Another interesting part of the program deals with the 
movement of the shot up the screen. While vertical movement 
of players is normally implemented from 5A3IC by the use of 
machine language subroutines, in Space Assailants it is 
accomplished entirely from BASIC itself. The method here is 
to interpret the player’s data as a string of characters, and 
to print the player into the desired spot in memory. The 
registers of 98 and 89 comprise a vector memory location 
for the place where the PRI'f? function begins, or what the 
computer interprets as POSITION 0,0. 3y poking 89 to the page 
number at which the desired player is located, you allow 
yourself to control the vertical position of the player (which 
is controlled by its position on the page, 0 - 255 ) by poking 
S3 to the desired location and printing the player there. In 
order to create vertical movement as in the case of the shot, 
you simply increment the value which will be poked into 63, 
position the computer to print at 0,0 to make sure you will 
print at the exact address you desire and print the player. 

In the case of the shot in Space Assailants, the character 
spring is M 88\D ". ’“'he reason for the blanks is that 

the shot is incremented by seven, so each time the shot is 
moved up and reprinted, it automatically erases the previous 
shot by printing blanks where it had been located. he same 


115 


S. A. /.V eis*ert e r/3 


method could be used for downward movement if the string were 
preceded by blanks. Also, this method could be used to make 
a player shift through several positions by using several 
different strings and printing them into the same point in memory. 

Along the same general lines as the shot movement is the 
method used in Tpace Assailants to create the two players 
placed along either side to detect collisions with the fleet 
as previously noted. To begin with, all 256 bytes of the pages 
set aside for these players are poked to 255 . The string A3 or 
"^FACE ASSAILA'-TS” is then used to put the title of the game 
onto both players. r ather than trying to understand the 
method for doing this from a written description, you’re 
better off referring to lines 550 and 5^0 of the program. You 
should be able to follow this method with the knowledge that 
32 is subtracted from the peek of ADR(A:T(X) ) in order to give 
the value, and location 573 ^ is the start of character 

data in the Atari's memory. 

n he style of programming used in "pace Assailants is 
slightly different than that used in many other programs 
in that exact addresses are used for the player/missile 
base, the redefined character sets, and several other items 
placed in the four K of memory used for such things. This 
is sonetir.es much easier than setting back a certain number 
of pages based on the peek of location 106 and usually uses 
somewhat less memory. If you are writing a program which 
will fit into l 6 K anyway, why not just set all the addresses 
as if it will always be run in 16K? The program will be just 
as universal as if you rely on PEEK(106), ar.d exact addresses 
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shorten the cole others will have to type in. 

If you don't have the time or patience to type in Space 
Assailants, just send a self-addressed, stamped mailer, a blank 
cassette, and $3-00 to John ‘Jeisgerber 

Be sure to include the name of the program you want. 
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100 GOTO 420 

110 301H0 0,0,0,C:NSA*0:3E=SE+1 sFCKE 656,0:PCKE 657,34 s? "3;” "si- LI=0 THE 
•r 280 

120 ^O? Y=13262 "0 13271sPCKE Y.OsNEX? YtFGKS 54286,0:FCKS 13273,50:LM= 50sPO 
<E 13163,240 sX=240sGR=13262s?=0 

130 EOR 2=12859 7C 13099 STEP 4 sPOKE Z.OtFCKS Z + 1,Os NEXT Z 
140 R=INT((3S-l)/6)iNL=3E-R*6:I? S5>6 THEN 0=0,5sl? 3S>12 THEN 33=20:0=0.25 
150 RESTORE 720:F0R Ll=13059 TO 13095-NL*40 S^EP -40sREAD TAs^OR L2=L1 TC LI 
<•20 STEP 4s POKE L2.TA sPOKE L2+1.TA+1 

160 NSA=NSA+1 1 NEXT L2sNEX? LI s Q=ABS(Q) sPOKE 53278,0:1? SE>18 THEN 0=0.5 
170 X*X-SDsPOKE 13163,XsI? X=0 THEN X=240 
ISO I? F=1 THEN R=R-7«G0SUB 300 

190 I? X/80=INT(X/80) THEN POKE 54297,CHiCH=48*(CH=60)+60*(CH=43) 

200 I? PEEK(54016)=251 “HEN YP=YP-(YP>53)*4iP0KE PLX.YP 
210 I? PEEK (54016) = 247 THEN' YP=YP+(YF<185)*4:PCKE PLX.YP 

220 I? P-EK(53264)=0 AND ?=0 THEN F=1s?=204+(TR-13262)sPOKE FLX+1,YF+4|SF=YP 
<•4 

230 IF P=1 "’HEN R=R-7sG0SUB 3C0 

240 IF PEEK(53254)^1 C" FEFK(53255)> 1 THEN 0=-0:POKE TR, 112sTR="R+1s IT 3R=13 
272 "HEN 280 

250 L*=L?>QsPOKE 13273.L?.* 

260 ” ?TFK(53252)>0 "HEN 400 
270 POKE 53278,0sGC“0 170 

230 7S"C0L0R 2,0,0:7ETC0L0R 0,8,4sF0KE 54286,255sfCKE 560,TRC1sPOKE 561.TR02 
s FOR X=PLX "0 ?LX+3:?CKE X,Os NEXT X 

290 POKE 53278,OsPCKE 94,0s? #6j ” "sSCUND 2,0,0,0sSCUN3 3,0,0,0i'070 600 

300 I? PSEK(53253)>1 AID PEEK{53253)<3 THEN JN=?sG0'0 340 

310 POKE 93,Rs?OKS 54,0:? ^6;"58\3 "sIF R<50 THEN FOKE 34,0:? Hi" 

" s “=0 

320 I? FSEK(53253)>1 AID PEEK(53253)<8 THEN JW=0sS070 340 
330 RETURN 

340 HP=12813+riT((((R-40)+JW-(3R-13262)»?)/14)+0.5)*40+INT{((SP-48)/l6<-(L>5 

3)/4)*4) s i~ HF>13090 THEN RETURN 

350 EA«0«“CR Z=HP "0 HF*3 > EA=EA+?SEX(Z)s POKE 2,0s EX' ZsI 7 EA»0 THEN R=R*;V: 
RETURN 

360 POKE 34,0s? Hi" 

370 *0UN3 0,220,10,15 
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3-0 F*0iNSA*N3A-l :SC*TC+ 10 :FCKS 656 ,OtFCKE 657 , 181 ? SCjtlF :~A *0 "HEN FC? :C 
C"0 110 

390 SOUND 0,0,0,0 1 RETURN 

900 LI=LI-l :?0KE 656.0«?CKE 657,5i? LIjiPOKE 89,0:? -- 6 :" "«3E=3E-11 3 0° Z= 

700 ■’0 255*SOUND 0,2,8,15*NEXT Z 
910 C-OTO 110 

920 GRAPHICS 2:TRC1=PEEK(56O):TRO2*PSEK(561)i?R0DL=TR01*256*TRO2i3ETCOLOR 2 , 
0,0:SETCOLOR 0,8,9 

930 FCKE TRCDL+10,6:F0KE TRODL+11,6:F0KE ?RCDL+12,6:POKZ TRCDL+13,2:FCKE 16 , 
69 1 POKE 53779,69 

-90 FOSITICN 2,9:? ^61 "SPACE ASSAILANTS POSITION 5,9t? # 6 * "ANSCHUETZ/WEISGS 
R3ER/AMSCHUETZ” 

950 POSITION 9,6:? -6s"initializing" 

960 CHI*98*2 56 1 CH2*60*256« FOR 1=0 TO 511:F0KE CHI +I,FZZK(57399+1):POKE CH2+I 
,?Z3K(573^9+1):NEXT I 

9?0 FOP. 1*3 ~0 55‘P-SAD A: POKE CHI +1, A: NEXT It FOR 1=3 TO 55«?.EAD AiPOKE CH2+I 
, A 1 NEX’" I 

980 -CR 1=56 ”0 79 1 SEAT A 1 POKE CH1+I ,.A :PCKS CH2+I.A:NEXT I«FCKE 756,60:CH=60 
990 FOR ”IA■'=56*256 "0 58 * 256 : POKE NIAD, 0: NEXT !IAD 

500 - 0 " ”1 = 1 TO 10i-:2«r;?(RND(0)*220)+l9336tR=I ’•(RND( 0 )* 7 )+ 1 »P 0 KE V! 2 , 2 ^-:F 0 
YZ M2+290,2 A R:NEXT Ml 

510 FO’ 1=13256 -'0 13291 :READ A :?OKE I.AiNSXT It^CR 1=13156 TO 13l65i°SA~ A: 
POKE I,A:NEXT I 

570 FOR 1=13166 'C 13210 S"SF 2: POKE I,9:?CKS 1=1,43: EXT IiFOR 1=13211 .'0 1 
3 , 13«'-AD A«FCKE I,A: .’EXT IiDIM AS(20) 

530 POKE 13260,PZEK(660):P0KE 13261 ,FEEX( 66 l)iPCKE 13l60,?2ZK(660)tFCKE 1316 
1 ,FEEK( 6 ' 1 ) :A$=''~PACS ASSAILANTS" 

590 FM=9°*256 i FLX= 53293 1 “OR X= 2 l 6 TO 223«READ A * POKE PI* 1024 «-X, A: NEXT X:'OR 
X=PM+1536 ""0 ?”+2047:FC:<S X,255:'!SXT X 

550 -OR X=1 TO 16:A=PSEK(ADR(A$(X)))-32iF0R Y«C TO 7 « FCKE X*S+Y+F"".+1576,255- 
?EEK(A*3+Y+57399) 

560 FCKE X*9+Y+FM+l33?,255-PS5K(A*3+Y+57394) 1 EXT Y: EXT XiPQKE ?04,5 Ci?0KS 
705,40iFCKE 7 06,t30: POKE 707,130 

c 70 POKE 559.62:?0KE 623 , 1 :FCKS 532 ^ 7 , 3 :FCKE 59279,FM/ 256 :FCKE 53256,1 
5=0 POKE 15880,199«FCKE 15381,200:POKE 15682,200t?CK3 15833,201 
590 POSITION 0 , 6 :? r - 61 ' bress start to begin ":POKE S9,53»?CKZ 82,0:P0KE 755.0 
600 FOR -A=12359 '0 13099 STEF 9,??KE PA,0:POKE RA+1,0:NEXT HA 
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610 I? PESK( 53279)06 THEN 610 

620 F0K3 560, IOOiFCKS 561 ,51 > SSTCCLO* 0.12,3 1 TETCOLO^ 1 , 3 , 6 : 'E ’COLO? 2 , 8 , 2 s 3 
E-OOLOC 3*12,4 

630 FOXE FLX+2,48sP0KE PLX^3*200sPCKS PLX,121 1 YF-121 1 3 * 0 . 25 : SS-0sSC»0iNSA»Os 
3D=10« LI=3 

6^0 POKE 656 , Oi POKE 657.5*2 LI| s POKE 657,18s? SCj" "scC'JND 2,190,10,3sS 

0 !HQ 3.192,10,3* r, -0'’0 110 

650 DATA 3.15,59.63,15.4,16,65,192,240,236,252.240,16,64,0,0,67,79.30,14,14, 

15.20 

660 DA "A 0,193.241,180,176,176,240,20,0,4,19,63,62,30,79.16,0,16,196,252,188 
,130,241,4 

670 DATA 3.15,62,63,15,4,1,0,192,240,183,252,240,16,4,65,0,3,15.15,30,79.79. 
5 

680 DATA 0,192,240,240,180,241,241,80,16,4,3,63.62,30,31.20,4,16,192,252,188 
,190,244,20 

690 DATA 0 , 0 , 0 , 0 , 11 , 63 , 127 , 227 . 0 , 0 , 60 , 255 . 153 . 153 . 255 , 24 , 0 , 0 , 0 , 0 , 208 , 252,254 
,199,112.112,112,66,0,0,0,0,0,0,0,0 

700 DATA 0,0,0,0,63,50,50,96,4,96,4,96,4,96,4,96,4,112,70,0,62,65,100,51,112 

.112.112,66,0,0,73,0.56,48,65,200,51 

710 DATA 8,8,28,28,62,62,42,42 

720 DATA 1.3,5,1,3.5 
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In the game KOOKY DIVER, you play the role of a diver 
who must search the sea for sunken treasure and escape from 
the depths alive!’ On your dives* you will encounter black 
pearls, treasure chests, pistols, vases, steering wheels, and 
many other treasures. But what Kooky doefen^t realize as he 
begins his expedition is that not only are* there a dangerous 
shark and a school of man—eating piranha to block his path, 
but that a giant clam has swallowed all of the treasure! 


You, as Kooky, will have to dive for the various 
treasures and attempt to bring them up to the salvage boat,, 
To move Kooky In any particular direction, just move the 
joystick ir T the corresponding direction. To tread water, 
push the joystick in any of the diagonal directions. 


You must time it just right so that the clangs mouth is 
open when you touch the treasure in order to have a chance to 
make a successful salvage. If the mouth is open and you are 
touching the treasure, merely press the fire button on the 
joystick and you will have picked up the treasure. Of 
course, if you touch any part of the cl ami when its mouth is 
closed, you will lose a life- After you have a treasure in 
your possession, you will use up your limited supply of 
anygen rather quickly, 


Luckily, there are three coral reefs for you tc- deposits 
your treasure on while surfacing for more oxygen. Provided 
that your current oxygen level is below 50 units, you will 
completely fill your tanks every time you bring your head out 
of the water. To drop off a treasure on any reef, all you 
must do is make sure Kooky is only touching the yellow 
portion of the reef. fit this point, the treasure will 
automatically be set there with no further actions required. 
To pick up a treasure again., simply press the fire button 
while touching the treasure as before. 


Of course, any collision with the piranha or the shark 
will cause instant death and send Kooky plummetting toward 
the .ocean floor. After three deaths, your game will end and 
the high score will be shown. Bt this point, you can press 
the "START” button an the computer to start a new game with 
three new divers. You may end up doing this quits a few 
times in the beginning because after all, nobody ever said 
that diving was easy! 


The ultimate goal of the game is bo deposits your 
treasure in the boat that if moving across the tap of the 
screen. To do this, just touch the boat and your treasure 
will appear inside- At this point, a new treasure will- 
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Dear contributor, 

Thank you for your submission to ANALOG Computing. Our technical staff and editors have evaluated 
your article, but we find that it does not meet our needs at the present time. There are several reasons 
why we may not be publishing your article: 

□ 1. We have already purchased a similar article, or have one under development. 

□ 2. The progTam/documentation needs improvement: 

RX aJaT UsAft 


CJ 3. The article has limited appeal to our readers. 
□ 4. The article needs re-writing: 


□ 5. The article is not appropriate to our needs. 


Thank you for submitting your articlc/ideas to ANALOG rnmn..»in» 


AUTHORIZED SIGNATURE 


Lee H. Pappas 
Publisher, ANALOG Computing 


Charles Bachand 
Technical/Software, ANALOG Computing 


Additional comments: 

- A Too ' fig Q-M/vfcg t-ftvsc" Pan lk 
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KOOKY KLIMBER 


I 



I 


Robert and Eric Anschu etz 


Johr^We^gerbe 


2 / 23/83 


Mr. Robert C. Lock 
Publisher/Editor-In-Chief 
COMPUTE! Magazine 
Post Office Box 5^06 
Greensboro, Nc 27403 


Dear Mr, Lock* 

We, the undersigned, are three 17 year old high school 
seniors. Our first experience with COIvTUTE! occurred in 
November, 1981# We had walked into a local Coinputerland store 
and we noticed on the monitor screen a very attractive looking 
game. We asked the person occupying the seat in front of the 
computer about the program. He stated that its title was "SHOOT" 
and that he had programmed it from an article in a magazine 
called COMPUTE! . We quickly purchased the magazine with the 
knowledge that we would recieve an ATARI 400 computer for 
Christmas that year and that we would need exciting games for it. 

Well, sir, the point of this letter is that a well programmed, 
attractive looking program influenced us into purchasing our 
first COMPUTE! and we have not missed a single copy since. 
Undoubtedly, many others must have started their COMPUTE! 
experience with the anticipation of playing a fast arcade style 
game. We three computer fanatics are convinced that our program, 
"KOOKY KLIMBER", can accomplish the same with other readers. 

We have been programming ever since that Christmas Day in 
1981 and have been gaining experience continually. One of the 
major helps for us in our advancement on the programming ladder 
is COMPUTE! magazine. In fact, "KOOKY KLIMBER" would not have 
been possible were it not for a previous article that appeared 
in CO IMPUTE! describing vertical player movement and player 
animation. For this very reason, we feel that you should 
seriously consider publishing our article and program. Programmers 
such as ourselves, and even beginning programmers, can increase 
their knowledge of some of the special features exclusive to the 
ATARI such as an understandable approach to rough scrolling and 
a use of easily moveable players. We have written the enclosed 
article in such a manner that programmers with little to no prior 
knowledge can learn these techniques and so that advanced 
programmers, as well, can benifit. 
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SMALL SYSTEM SERVICES.INC 

PubSshotsof COMPUTE! Mogu/ne and COMPUTE! Boole*. 





johnWeisgerber 


505 Edwardkr Drive Greensboro, NC 2740? USA 
Post Office Box 5406. Greensboro. NC 27403 USA 
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SMALL SYSTEM SERVICES,INC 



May 3, 1983 
John Welsgerber 


Dear Mr, Heisgerber; 


The article, 11 Kooky Riimber, u by you and Robert and Eric 
Ansehuets, has been accepted for publication* The attached 
contract must be signed and returned by you to complete our 
acceptance or your article. Open our receipt of your signed 
contract, we will forward to you a check for the amount'noted in 
.Paragraph 7 of the contract and Paragraph 2 of the amendment* 

Thank you for submitting your article to COMPUTE! Publications- He 
are proud of the quality of our products and of your valuable 
contribution to our effort. 


Yours truly. 


Ricnard Mansfield 
Senior Editor 


RM/ce 


I 


V 


Puncher* or COMPUTE Magazine and CoiviPLirH Books. 

535 Edwardta Dr vo Greensboro. N‘C 27409 USA. 

Post Office Box 5406. Greensboro, INC 27403 USA. Telephone 9l9-2?5-9&09. 
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This contract, when accepted by you, constitutes an agreement between Small System Services, Inc, (hereafter COMPUTE!) 
and y<xi. with respect to the work tentatively entitled 


May 3, 1983 

Kooky Klimbei: 

(hereinafter “die Wnrk'T as follow's: 

h You hereby gram to COMPUTE! , its subsidiaries, and licensees exclusive worldwide periodical rights in and to the Work 
including the right to print the Work in a book or books exerciseable by notice to you and accompanied by payment of 
an amount equal to 15 % of the amount ytm were first paid for the use of your material. 

2 A. tn addition to this amount, COMPUTE! warrant* that use of your Work in a bxik or collected form will produce quarterly 
royalty payments to you based on the net sides of the book by COMPUTE!. These payments will be calculated on the 
basis of your number of pages ami fractional pci^es in the book as a percentage of (be total number of pages in the book. 
A royalty in an amount corfestxjnding to 7 . 5 % of rbe ner sates of the book will lx allocated prorata among dll of the 
authors contributing to the book. 

B, It is understood in; a part tW this ^moment that COMPUTE! has the hill right to disseminate software contained in the 
tn electronic form as- a part of the normal distribution of the nu^tnnc nnd its contemn. In the event such 
nmion generates additional ner siles in electronic firm, you shall he paid addition;*! royalties as defined in Paragraph 
2 A above. 

3 . You also grant COMPUTE! the right to condense and adapt rtvc Work for publication in all languages throughout the 
world and to license all of the rights granted hereunder to third parties. You also grant the right to reprint the Work in 
promotional materials and reprints. 

All other right* m and to the Work remain your property, except that you agree that COMPUTE! has the right of first publb 

cation in Any form in any country in the world. 

4. COMPUTE! shall be the copyright owner of the exclusive rights purchased herein. 

5 . COMPUTE! shall have the right to use the name, biography „ and likeness of rhe author in connection with rhe publication 
and promotion of the Work. 

6 . Y ou warrant that you own the righrs Conveyed herein or, us the owner"s duly authorized Agent+ that you have the full 
power to grant such rights, that the Work does not infringe any copyright or rights of any third party, Or Contain any 
matter that is libelous or otherwise in contravention of law. 

7 . In full and complete consideration for the rights herein granted, COMPUTE! will pay you the sum of: *20000 


Tins sum does not preclude, and is not affected by, the additional amounts provided for in Clauses 1 and 2 above, 
should republican )n of the work occur, 

ir the foregoing meets with your approval, please acknowledge yinir igreemciu by signing ami returning one copy of this 
contract at your earliest convenience. 


Agreed and approved: 


Very truly yours, 


Author or authorized agent 


Social Security Number 


John Weisgerber Robert Anachuets 

_Eric Ans chuetz Kathleen Mnrtinek, Managing Ednor 

by authority of the President 
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the software contained in your Work, as previously defined, COMPUTE! u ishes to purchase the software Tights to your Work 

ns well In consideration of these additional rights granted by you. wo will pay you the following residual amounts: 

1, Upon publication of y«Hir software in electronic media form, COilPlUli will pay you the sum uf 16% of net sales generated 
by your software. If your software is published electron kally ns a portion of a collection of such software COMPUTE! will 
pay you based cm rhe percentage (by siid that y^ir Work comprise* iif that collection. 

2 . In consideration of our additional payment to you. upon yinir acceptance of {his contract, of $200 and future royalties 
you hereby agree: to giant us these exclusive rights in the sale, marketing, and distribution of your software. 

J. Royalties, after puhlicaikin in electronic form, will he paid to you on a quarterly basis. 

4, Should COMPUTE! fail to produce. and marker your software in electronic form s ithin I (one) year from ihc dare of 
publication. you may withdraw your acceptance of this amend mem and all rights Ittrein gmntcd shall revert io you 
Sudi notice tmm you, which must he m writing n any rime idler expiration of ihe ntle year period. is wirlumt any other 
constmuu, and the initial payment ol $200 lor these rights is undu stood To he non-rgfundiihle. 


As untended: 


Kathl cen Martinet, Managing kditor, 
by authority of the Presukm 


>7*A» 


Agreed and approval: 


AniKtir or authorized agent 


Hate; 
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COMPUTE! “Publicationsjnc.® 

CVte of ti«e fitC Publishing Cwpcrites 


September 6, 1985 


Mr. John Weissaerber 


Dear Mr* Weisgerbert 

Following a recent inventory of our article pool, we have concluded 
that some of the article® therein are unlikely to become published 
within a reasonable amount of time* 

Your article, ‘'Kooky Kliiaber" is included* There are several reasons 
why an article becomes unlikely to be published: overlap with other 
published articles; the material is no longer timely, etc* 

This notification constitutes a release of your material and you are 
free to submit it elsewhere, and may, of course, keep the fees we 
paid you for it* Because it was originally accepted here, we 
consider your work to be of exceptional quality and would encourage 
you to submit articles to us in the future* 


Yours truly, 


Richard Mansfield 
Senior Editor 


Rl/j k 


S24 West Weroovsr Avenue. Suite 200. Greensboro, No-lh Casing 27408 USA 
Post Office Box 5406. Greensboro, North Carolina 27403 USA. telephone 919.275-9809. 
Tofc>* Number 5?4dl T WU*U3TLX 330 
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KOOKY’S QUEST 


MTIC Publishing . (Ob ISth Jt. . J.r., Cs. JM07 

Dear Writer: „ „ . . Oat** 

Mr. Hnl* 9 *rbcr: »•*«. 7/Jft/84 

VMS It to let you knot* that we have received your 
Material entitled: 

■-KQflkv'l Oimet and _ 

including disk ( ), cassette (x). art ( ), SASE (x* 

(x) W« are evaluating It for possible publication. 

Expect to hear further within two weeks. 

( ) We did not receive your postage-paid Mailer (SASE). 

ease send one to guarantee return of your materials. 

Cordially, 

AMTIC EO 
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COMPUTE!' Publications jnc. 

One Ot she ABC FUbfiShing Con-portes 


Ra: Kooky*s Quest 


Dear Author: 


He-* at COMPUTE! * regret the delay in responding to your submission* 
However * after reviewing it we feel that it does not meet our 
present needs. 

We are always interested, though, in reviewing programs and articles 
for possible publication* Please find enclosed a copy of COMPUTE! r s 
Author Guide which will assist you in submitting your material. Please 
do not hesitate to send us something in the future* 

Thank you for thinking of COMPUTE l . 


Yours truly* 



Dan Carmichael 
Submissions Editor 


BC/vj 


324 West Wendover Avenue, Suite 200, Greensboro, North Carolina 22400 USA 
Past Office Sox 5406, Greensboro, North Carolina 22403 USA Telephone 919 276-9009. 
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The atari® Resource 

ANTIC 1 Pub tithing Inc, 

S24 Second Street 
Sm Francecq, CA 9410? 
41S %7 0336 


Johf^te^gerber 


Date: 7/17/04 

Thank you for your recently submitted material entitled: 

-Kaatola-^uest_including 

0 listings, □ disk, Q cassette, Dart, El SASE 

9 Vour material has been accepted for publication In our 

—Game--department, or as a__now planned 

for the-issue, or for other use within one year. ( X ) 

Payment will be made upon publication. If we do not use this within one year, 
we will pay a "kill fee" and copyright to the material reverts to you. If we need 
a biographical statement or copyright agreement from you, a form is enclosed. Please 
return these to us as soon as possible. 


□ Sorry, we can't accept your material. Unfortunately, we don’t have room to print 
all the good submissions we receive. 

□ Your material is being returned to you herewith, or 

□ is being held here pending your postage-paid mailer. 

The volume of our editorial work prevents a more personal response. We appre¬ 
ciate your efforts and are glad that you submitted to Antic, Please keep us in mind 
in the future. 


Cordially. 


Nat Friedland, 
Editor 


( )&*. 
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NIGHT RESCUE 


JnhnWgUgg^jgr 


Richard Mansfield 
Senior Editor 
CONFUTE I Magas ine 


near Mr* Mansfields 

Eric and Robert Anschuetz and I have written a second 
game entitled "night Rescue" which we feel is much more 
impressive than our previous effort* "Kooky Klimber"* This 
game utilises horizontal scrolling along with player/missile 
graphics and Atari's four color character modes, antic four 
and five. Because this game uses so many features unique to 
the Atari computer we feel it would serve as an exeilent 
program to show others the various techniques useful in 
implementing these features from the BASIC programming language* 
The program itself is fairly well written* and the game is 
actually fun to play, something not true of many magazine 
games we have typed in recently. For these reasons we urge 
you to promptly accept this new offering for publication* 

For our last article and game we were payed a total of 
$400, Since "Night Rescue 1 ' is far superior in ail aspects 
to ’’Kooky Klimber** * we feel a fair payment would be in the 
area of $750 ($25® each* if you prefer). We have already 
started our next game and have ideas for several others,, so 
you will be hearing from us again. In the meantime, if you 
need to contact us* don't hesitate to call one of the Anschuetz 
at the number on the title page of the enclosed article. 

Sincerely*_ 
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COMPUTE'Publfcatbns,lnc. 

A Subspciafy Of flfnwTcon ftoocfcasilng Comcxanles. bnc 



July 14 , mi 


>T f\h n Wsi feflorhpT 


tear Mr* Weisgerber t 


Your article, "Night Rescuer" has been accepted for publication* The 
attached contract must be signed and returned by you to complete our 
acceptance ot your article. Upon our receipt of your signed 
contract, we will forward to you a check for the amount noted in 
Paragraph 1 of the contract and Paragraph 2 of the amendment * 

Thank you for submitting your article to COMPOTE I Publications* We 
are proud ot the quality of our products and of your valuable 
contribution to our effort* 


Yours truly, _ 

Ricnaro Mansfield 
Senior Editor 

RM/vj 


505 fdwopdb Of he. <3f«r*bt*o r NoHh Cwollnc. 27400 USA. 

Post Office Box 5406. Or*en?txxa Horlh Caroline 27403 USA. Telephone 616 275 W?, 
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This contract, when accepted by you, constitutes an agreement between Small System Services, Inc. (hereafter COMPUTE!) 
and you. with respect to the work tentatively entitled 

, July 14, 1933 


Eight Rescue 

(hereinafter tl ihe Work"), as follows: 

1 - You hereby grant to COMPOTE!, its subsidiaries, and licensees exclusive worldwide periodical rights in and to the Work 

including the right to prim the Work in a book or books eserelseable by notice to you and accompanied by payment of 
an amount equal to 1 5% of the amount you were first paid for the use of your material, 

2 A. In addition to tin is amount. COMPUTE! warrants that use of your Work in a book or collected form will produce quarterly 

royalty payments to you based on the net sales of the book by COMPOTE!. These payments will be calculated on the 
basis of your number of pages and fractional pages in the book as a percentage of the total number of pages in the book. 

A royalty in an amount corresponding ro 7.5%of the net sales of the book will be allocated pro ram among all of the 
authors contributing to the book- 

B, It is understood as apart of this agreement that COMPUTE) ha* the full right ro disseminate software contained in the 
Work in electronic form as a part of the normal distribution of the magazine and it* contents. In the event such dissmuh 
nation generates additional net sales in electronic form, you shall be paid additional royalties as defined in Paragraph 
2A above. 

3. You also grant COMPUTE! the right to condense and adapt the Work for publication in sll languages throughout the 
world and to license all of the rights granted hereunder to third parties. You also grant the right to reprint the Work in 
promotional materials and reprints. 

All other rights in and to the Work, remain your property, except that you agree that COMPUTE! has the right of first publi¬ 
cation in any form in any country in the world. 

4. COMPUTE! shall be the copyright owner of the exclusive rights purchased herein. 

5. COMPUTE! shall have (he right in use the name, biography, and likeness of the author in connection with the publication 
and promotion of the Work, 

6. You warrant chat you own the rights conveyed herein or, as the owner's duly authorised Agent, that you have the full 
power to grant such rights f shat the Work does not infringe any copyright or rights of any third parry, or contain any 
matte r that is libelous or otherwise in contravention of law. 

7. In full and complete consideration for the rights herein granted, COMPUTE! will pay you the sum of: 


This sum does not preclude, and is not affected by, the additional amounts provided for in Clauses 1 and 2 above, 
should republics ion of the work occur. 

If the foregoing meets with your approval, please acknowledge your agreement by signing and returning one copy of this 
contract at your earliest convenience. 


Agreed and approved ; Very tru ly yours. 


Author or author!ted agent 


Social Security Number 


Kathleen Marti nek, Managing Editor 
by authority of the President 





This document constitutes an amendment to the foregoing contract* and i$. a part of it. Because of the exceptional quality of 
(he ^jftware contained in your Work, as previously defined, COMPUTE! wishes to purchase she software tights to your Work 
m well In consideration of these additional rights granted by you, we will pay you the following residual amounrs: 

1. Upon publication of your software in electronic media form, COMPUTE!- will pay you the sum of 15% of net sales generated 
by your software, if your software is published electronically as a portion of a collection of such software, COMPUTE! will 
pay you based on the percentage (by site) that your Work comprises of that collection, 

2. In consideration of our additional payment to you, upon your acceptance of this contract* of $200 and future royalties, 
you hereby agree to gram us these exclusive rights in the sale, marketing, and distribution of your software, 

3. Royalties, after publication in electronic form., will be paid to you on a quarterly basis, 

4. Should COMPUTE! fail to produce, and market your software in electronic form within I (one) year from the date of 
publication* you may withdraw your acceptance of this amendment, and all rights herein granted shall revert to you. 

Such notice from you, which must be in writing at any time after expiration of the one-year period, is without any other 
constraint* and the initial payment of $200 for these rights is understood to be noiVrefundable, 


As amended: _ _ - _ 

Ka th l«n M am nek, M a naging Edi tor * 7 //*//& 5 
by authority of the President 


Agreed and approved: 


Author or authorized agent 


Dote: 




s. 
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COMPOTE!'Publications,lnc® 

One of the /M3C Publishir-Q Companies 


September 6, 1985 


Mr. John weisgerber 


Dear Mr. WeisgerberE 

Following a recent inventory of our article pool, we have concluded 
that some of the articles therein are unlikely to become published 
within a reasonable amount of time. 

Your article, "Eight Rescue H is included. There are several reasons 
why an article becomes unlikely to be published; overlap with other 
published articles; the material is no longer timely, etc. 

This notification constitutes a release of your material and you are 
free to submit it elsewhere, and may, of course, keep the fees we 
paid you for it. Because it was originally accepted here, we 
consider your work to be of enceptional quality and would encourage 
you to submit articles to us in the future# 


Yours truly. 


Richard Mansfield 
Senior Editor 

RM/jk 


334 West Wendfover Avenue, Mo 200. Greensboro. Worth Corolla 2740S USA 
Post Office Sox 5406. Greensboro, North- Coroiim 27403 USA. Teteohbne 919-275-9TO 
Tetex Nwm&ec 6/4411 WUPUBTLX GBO 
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OVERFLOW 


MTIC Publishing . (Ob ISth Jt. . J.r., Cs. JM07 

Dear Writer: „ „ . . Oat** 

Mr. Hnl* 9 *rbcr: »•*«. 7/Jft/84 

VMS It to let you knot* that we have received your 
Material entitled: 

■-toQkv'l Oimet and _ 

including disk ( ), cassette (x). art ( ), SASE (x* 

(x) W« are evaluating It for possible publication. 

Expect to hear further within two weeks. 

( ) «e did not receive your postage-paid Mailer (SASE). 

ease send one to guarantee return of your materials. 

Cordially, 

AMTIC EO 
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COMPUTE'PublicationsJnc. 

On© d Ihe ABC IHjfaWiifTgCoinporrtes 



Re: Overflow 


Dear Author: 


We* at COMPUTE* » regret the delay in responding zo your submission* 
However* after reviewing it we feel that it does not meet our 
present needs* 

We are always interested* though, In reviewing programs and articles 
for possible publication* Please find enclosed a copy of COMPUTE1 p s 
Author Guide which will assist you in submitting your material* Please 
do not hesitate to send us something in the future* 

Thank you for thinking of COMPUTE * * 


Yours truly. 



Dan Carmichael 
Submissions Editor 


DC/vj 


West Wendover Avenue. $ji‘e £3C Greensmro. Norh Ccrolinc L$A 
-o5t Oftce 3ox 5406. Greensboro, Nairn CoroSno 27403 USA re epbone W-275-9509. 
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The ATARI* Sesour-ce 

ANTIC- Pub Visit ins Inc. 

524 $£C<rfltf Stricr 
Sin FttnCbcq CA 94107 
415 «57 om 


July 17, 1904 




Dear 1 Hr - We i sg er b er s 

Thank you for submitting your program “Overflow" to 
Antic* All of us here at Antic agree that. it's a great, 
example pf how much you tan do in a very short program. 
Unfortunately f it's too hard to play. Ne always get 
wiped out in a matter of seconds f and as you can 
imagine, we're not exactly amateurs at playing these 
games> So if you would, please make the game a bit 
easier far us oldsters, and increment the difficulty as 
playing time increases- Thanks again. 


Cor d j aj 1 y , 


David Duberman 
Technical Editor 
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The AlAT# Resource 

ANTIC 42 Publiihiog Inc. 

594 Second Street 
San Francisco, ca 94107 
415 957 m*> 




Pate: a/ 3/84 

Thank you for your recently submitted material entitled: 

-overfinw--including 

□ listings, C disk, 0 cassette, Dart, QSASE 

5 Your material has been accepted for publication in our 

__department, or as a feature _now planned 

for the-issue, or for other use within one year, oo 


Payment will be made upon publication. If we do not use this within one year, 
we will pay a "kill fee" and copyright to the material reverts to you. If we need 
a biographical statement or copyright agreement from you, a form is enclosed. Please 
return these to us as soon as possible. 


□ Sorry, we can’t accept your material. Unfortunately, we don’t have room to print 
all the good submissions we receive, 

□ Your material is being returned to you herewith, or 

□ is being held here pending your postage-paid mailer. 

The volume of our editorial work prevents a more personal response. We appre¬ 
ciate your efforts and are glad that you submitted to Antic. Please keep us in mind 
in the future. 


PS: Payment will be made at the end of the 
Publication Month, 



Nat Friedland, 
Editor 


( )Enc. 
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PIRACY II 


v '***• 1 $ £ S. 


0 e*.r SirS ~ 

£- A clc6eJ /j */j (Xrirc/e / Wsf,'^ ) £«»/< 

f d'^K as\J £c\£f&ff€ <?f cl/\ Kt Cc 

A r £*yAc S/yft £s\f/f/*J fifr*xy T^* 7 his 

/S y //> o\aT oprsr'osij o/)e <of /Af' Pes<r 
WC/yle Style gameS Qi&r utr/ffeo f n g/jSZc 
fvf '/La At*ff/ (/)& A.re CoS)fs7^3 
«aJ/// toe Oesy M<\r te/aUe A*Jt 4 vpc fo 

of yo\*r cxc£eftoLAC&- of /V ozy £s+zvi, 

y^iA. for CO/lS'd CJ ' n j < *^r 


. . 


Xffi r ^cis^S for fc *\b,Aj & rU B^AA/iy 
T^rA c?A J-fSf Af/Vt/ lns<rt flQACy 2T dt'Jf' 

T^r/) o/\ Corpus * -I SS hjl Co^a^a^ R\Jrt f '/): P2#/jcfi/TL?*' 

t\Ctu~ press^Aj Sfa*ffj /Ls^q Lc u !o^ c&eJ-y for 

//N/VV/*-W>aM p-y/fPSQ}' jfefef to 7U ^ 


I 
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(0'%^ 


Dear contributor. 

Thank you for your submission to ANALOG Computing. Our technical staff and 
editors have evaluated your article, but we find that it does not meet our 
needs at the present time. There are several reasons why we may not be 
publishing your article: 


_ 1. We have already purchased a similar article, or have one under 

development. 



2 . 


The program/documentation needs improvement: 

THE /5 Too tfA/ fcELPAyS ! 


-£u£fty r/AMfc..' 


SjJLLZ i TA//CAJ T H tTT . , n -oofci 


3. The article has limited appeal to our readers. 

4. The article needs re-writing: 


5. The article is not appropriate 


L U Ulir IlctrUb • 


Thank you for submitting your article/ideas to ANALOG Computing. 


Michael DesChenes 
Publisher 
ANALOG Computing 


Ps. 


NEXT f/A£ # yj\J Cav S&tJb Ju^T / 7 y£ D/Sfei 
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ROBOT DUNGEON 



594 Second Street 
San Francisco, CA 94107 


Rob|r^n^ri^nschue t Z 


li I M II ■■ It i nit! if iif in I (i ■ If I 


ANTIC Publishing - 600 l8th St. - S.F., Ca. 9^107 

Dear Writer: ^. e /\nsdmetw? & Date. <3/21/84 
Co.: 

This is to let you know that we have received your 
material entitled: 

Robot Dungeon 

including disk (x$, cassette (xj) , art ( ), SASE ( ) 

( ) We are evaluating it for possible publication. 

Expect to hear further within two weeks. 

* 

We did not receive your postage-paid mailer (SASE). 
Please send one to guarantee return of your material* * 

Cordially, 

ANTIC ED 
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Date: 7/9/84 


Robert & Eric Anschuetz 
(John Weisgerber) 


Thank you for your recently submitted material entitled: 

Him rronn 


including ( ) llsting(s), (X) disk(s), ( 2 ) cassette, ( ) art ( ) SASE 

(xx) We are pleased to advise you that your material has been accepted 

for the _ department, or as a feature ( xx) , and is scheduled 

f° r the _issue, or other use ( within one year. 

( ) Enclosed is our check ft _ for $ _ as an advance pending 

publication. Final payment, if any is due, will be made then. 

( x) Payment will be made on publication. 

( ) We're sorry, your material does not meet our current editorial needs 

( ) and 1$ being returned herewith. 

( ) and is being held pending receipt of a self-addressed, postage- 

paid mailer. 

(x ) Enclosed are: ( ) Author's Guide, (X ) Copyright Agreement, 

( ) Biographical Statement 

Please return indicated items prior to publication. 

The volume of our editorial work precludes a more personal response. 

We appreciate the time and effort you have invested in your material 
and are glad you submitted to ANTIC. Keep us in mind in the future. 


( ) Enc. 


Cordially, 


Kooert I’eVy i 11, 
Managing Editor 


Rev. 9/16/83 
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SPACE ASSAILANTS 


AMTIC Publishing - 600 18th St. - S.F., Ca. Jkl07 



Ibis Is to lot you know that we have received your 
•eterlel entitled: 



Including disk ( ), cassette $0, art ( ), SASE ( ) 

W We ere evaluating It for possible publication. 

Expect to hear further within two weeks. 

e« 

() We did not receive your postage-paid nailer (SASE). 

Please send one to guarantee return of your Materials. 

Cordially, 

ANTIC ED 
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COMPUTET Publfcationsjnc. 

One of the ABC PytoteNng C^nwraes 



October 9, 1984 


Mr, John Welsaerber 


Dear Mr, Weisgerber; 

In order to facilitate our review of your program t 11 Space 
Assailants ,' 11 please send us another tape# We discovered 
that this tape will not load. 

Please write ^PBNDXWG* in the lower left hand corner of the 
envelope and send it to the address below. 

Thank you for your interest in COMPUTE !, 

Yours truly. 


Mark Tuttle 
Submissions Editor 

MT/jbf 

Enclosure 


324 West WendQver Avenue, Suite 300. Greensboro, Worth Cgrokna 2740A USA. 

Post Office Box £406. Qtm nsbora North Caroling 27403 USA, Telephone 91V275-9OT. 
Telex IVum bar 574411 WUf’UBILX SBO 
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COMPUTErPublicationsJnc© 

Or* Of#ra ABC Putting Comport® 


Re: "Space Assailants 11 


Dear Author: 


We* at COMPUTE! , regret the delay in responding to your 
submission* However, after reviewing it we feel that it 
does not meet our present needs* 

We are a young magazine, growing at a very rapid rate. 
This has, unfortunately, resulted in some delays in our 
editorial review process* We have recently reorganized 
and expect that editorial evaluations in the future will 
be prompt * 

We are always interested, though, in reviewing programs 
and articles for possible publication* Please find 
enclosed a copy of COMPUTE I 1 s Author Guide which will 
assist you in submitting your material* Please do not 
hesitate to send us something in the future* 

Thank you for thinking of COMPUTE! . 


Yours it-ulv r 


Dan Carmichael 
Submissions Editor 

DC/vj 


505 Edward a Drtu®- GfesnslXKO r North Carolina 27409 USA 

Post Office Bax &406- Owensboro, North Carolina 27403 USA Telephone 919*275-9609, 


153 








COMPUTERS 
Author Guide 


Most of the following suggestions serve to improve 
the speed and accuracy of publication. COMPUTE! is 
primarily interested in new and timely articles on VIC 
Apple, PET/CBM, Commodore 64, Atari, Sinclair/ 
Timex, TI-99/4A, and Radio Shack Color Computer. 

We are- much more concerned with the content of an 
article than with its style. Above all, articles should be 
clear and well-explained. 

The guidelines below will permit your good ideas 
and programs to be more easily edited and published; 

1. The upper left corner of the first page should 
contain your name, address, telephone number, and 
the date ol submission. 

2. The following information should appear in the 
upper right corner of the first page. Jf your article is 
specifically directed to one make of computer, please 
state the brand name and, if applicable, the BASIC or 
ROM or DOS version(s) involved. In addition, please 
indicate the memory requirements of programs. 

3. The underlined title of the article should start 
about 2/3 of the way down the first page, 

4. Following pages should be typed normally, 
except that in the upper right comer there should be 
an abbreviation ol the title, your last name, and the 
page number. For example; Memory Map/$mith/2. 

5. Short programs fonder 20 lines) can easily be 
included within the text. Longer programs should be 
separate listings. It i$ essential that a# have a copy of the 
program , recorded twice , on a tape or disk- The tape or 
disk should be labeled with the author's name, the 
title ol the article, and, if applicable, the BASIC/ROM/ 
DOS version (s). Atari tapes should specify whether 
they are to be LOADed or ENTERed. We prefer to 
receive Apple programs on disk rather than tape. On 
the other hand, tapes are preferred lor the TI and Radio 
Shack computers. Tapes are fairly sturdy, but disks 
need to be enclosed within plastic or cardboard mailers 
(available at photography, stationery, or computer 
supply stores). 

It is far easier for others to type in your program if 
you use CHR$(X) values and TAB(X) or SFC(X) instead 
of cursor manipulations to format your output. For 
five carriage returns, FOR 1 = 1 TO 5:PR1 NTT:NEXT is 
far more "portable" to other computers with other 
BASIC* and also easier to type in. And, instead of a 
dozen right-cursor symbols, why not simply use PRINT 
5PQ12)? A quick check through your program - 
making these subs tit u Isons- would be greatly appre¬ 
ciated by your editors and by your readers. 

6. If your article is accepted and you have since 
made improvements to the program, please submit an 


entirely new tape or disk and a new copy of the article 
reflecting the update. We cannot easily make revisions 
to programs and articles. It is necessary that you send 
the revised version as if it were a new' submission en¬ 
tirely, but be sure to indicate that your submission is a 
revised version by writing Revision' 1 ' on the envelope 
and the article. 

7. All lines within the text of the article should be 
spaced so that there is about 1/2 inch between them. A 
one inch margin should be left at the right, left, top, 
and bottom of each page. No hyphens should be used 
at the ends of lines to break words. And please do not 
justify. Leave the lines ragged. 

H. Standard typing paper should be used {no 
onionskin or other thin paper) and typing should be 
on one side of the paper only (upper- and lowercase). 

9. Sheets should be attached together with a paper 
clip. Staples should not be used, 

1©. A good general rale is to spell out the numbers 
zero through ten in your article and write higher num¬ 
bers as numerals (1024). The exceptions to this are: 
Figure 5, Table 3, TAB(4), etc. Within ordinary text, 
however, the zero through ten should appear as words, 
not numbers. Also, symbols and abbreviations should 
not be used within text: use "and" (not &), "reference" 
(not ref ), "through" (not thru). 

11. For greater clarity, use all capitals when re¬ 
ferring to keys (RETURN, TAB, ESC, SHIFT), BASIC 
words {LIST, RND, GOTO), and three languages 
(BASIC, APL, PILOT). Headlines and subheads 
should, however, be initial caps only, and emphasized 
words are not capitalized. If you wish to emphasize, 
underline the word and it will be italicized during 
typesetting. 

12. COMPUTE! pays between $75 and $600 for 
published articles In general, the rate reflects the 
length of the article. Payment is made upon acceptance 
of an article. Following submission {Editorial Depart¬ 
ment, COMPUTE! Magazine, P.O, Bov 5406, 
Greensboro, NC 27403) it will take from two to four 
weeks for us to reply. If your work is accepted, you 
will be notified by a letter which will include a contract 
for you to sign and return. Rejected manuscripts are 
returned to authors who enclose an SASE, We do not 
consider articles which are multiple Submissions, If 
you wish to send an article to another magazine for 
consideration, please do not submit it to us. 

13. Articles can be of any length - from a single-line 
routine to a multi-issue series. The average article is 
about four to eight double-spaced, typed pages. 

14. If you want to include photographs, they 
should be 5x7, black and white glossies, 
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5>P»cE /{5^/^wIS 7 St'tH 

-WTfCLE TITLE"--DATE- 


Dear contributor, 

Thank you for your submission to ANALOG Computing Our technical staff and editors have evaluated 
your article, but we find that it does not meet our needs at the present time. There am several reasons 
why we may not he publishing your article: 

O 1. We have already purchased a similar article^ or have one under development, 

O 2, The program/documentation needs improvement: 


3, The article has limited appeal to our readers. 
□ 4, The article needs re-*writing: 


O 5. The article is not appropriate to our needs. 

Thank you for submitting your article/ideas to ANALDCLComaului 


-- 

Lee II. Pappas 
PvfeNsher, ANALOG Computing 


^^H^RlZED SIGNjifTLI^ 


Charles Bachand 

lcchnicd/Sofrware, ANALOG Computing 


Additional comments: 

_ So*#/j n J>ti£2LLA£. iugjg lf Ti &QL& OS Pah. 

"Twc y?*ftxJ _ t*»SH Xa&BS. HeAS, A ~T° THE 7/fei'K- 

- .4#t> bar HAvt. nr Ptlclfc&ft.. _ 


Afz&M i s*esy ... 
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Ih« AlAfif* Resource 

ANTIC* Publilbinq Inc. 

K'4 second Street 

San Frartciscct Ca 94107 
415 957 ossa 


Johr^J^sgerb^t 


Date: 11/20/84 

Thank you for your recently submitted material entitled: 

space assailants _including 

EDslistings, □ disk, IS cassette, □ art, □ SASE 

□ Your material has been accepted for publication in our 

__department, or as a_now planned 

for the _issue, or for other use within one year. 


Payment will be made upon publication. If we do not use this within one year, 
we will pay a "kill fee" and copyright to the material reverts to you. if we need 
a biographical statement or copyright agreement from you, a form is enclosed. Please 
return these to us as soon as possible. 


(3 Sorry, we can’t accept your material. Unfortunately, we don’t have room to print 
all the good submissions we receive. 

□ Your material is being returned to you herewith, or 

O is being held here pending your postage-paid mailer. 

The volume of our editorial work prevents a more personal response. We appre¬ 
ciate your efforts and are glad that you submitted to Antic. Please keepus in mind 
in the future. 

Cordialj^^^^^ 


Nat Friedland, 
Editor 


( )Enc. 


156 














AAV/A PUBLISHED GAMES 

































KOOKY’S QUEST 


ANTIC VOL. 3, NO. 10 / FEBRUARY 1985 



7412728 




FEBRUARY 1985 VOLUME 3, NUMBER 10 




















Atari Chairman 
Jack Tramiel 








—Exclusive Intern 
























158 






























IB 


Tmc apart your home toon .18 



New sounds from 
yourA&art . 


$6 



aPX 1983 prize winner — now in Antic 1 

TYPE-IN SOFTWARE 

INCOME TAX SPREADSHEET tv K.w. Harms 

22 

Preparing tax returns on Atari 

TYPE-IN SOFTWARE 

DRUM SYNTH / BASS SYNTH by Glenn Gutierrez 26 

Powerful AUDCTL rhythm section 

TYPE-4N SOFTWARE 

CURRENCY CHANGER by J. Goolevitch and w 

Wakeman 31 

Convert your drachmas to pesos 

TYPE-IN SOFTWARE 

BEAT THE BEEPS by Ian Lovejoy 

33 

Turn off annoying keyboard sound 

TYPE-IN SOFTWARE 

JACK TRAMIEL DECLARES WAR! 

72 

Antic's Exclusive Interview With The Atari Chairman 


DEPARTMENTS 


GAME OF THE MONTH 

TYPE-IN SOFTWARE 

KOOKY'S QUEST by Anshuetz, Anshuetz and Weisgerber 56 

COMMUNICATIONS 


200+ ATARI BULLETIN BOARDS 

59 

ASSEMBLY LANGUAGE 

TYPE-IN SOFTWARE 

S.A.M. HANDLER by Chris Bone 

63 

EDUCATION 

TYPE-IN SOFTWARE 

MUSIC FLASHCARDS by James Brown 

66 

TOOLBOX 


PARALLEL BUS REVEALED: Part II by Earl Rice 

68 

SOFTWARE LIBRA 

r y 

TYPE-IN LISTINGS SECTION 

35 


•Cooky’s Quest - 
Mot for me sooearmh 


I/O BOARD 
HELP! 


14 PRODUCT REVIEWS. 


6 ATARI SERVICE CENTERS^ 

10 ADVERTISER’S UST _ 

12 SHOPPER S GUIDE 
74 


.78 
80 
. 81 


159 









































































game of the month 


O KOOKY’S QUEST 


Lit IM UtH KOOKY'S UUEST 
IS 20 Uk.fi DV 

U2 30 REM flllS(:MU£T7/UErjbLHOLk/ftM‘.( HUtlZ 
RI 41 HIM ANTIC MAGAZINE 

EK 100 GRAPHICS 18:POKE 16»1*4 • POKE 53774. 
64 r DL = PEEK (560) •256**PEEK f 5G1I ;SETCOLUR 

2 . 0.0 

CL lie POKE DL‘10.6'POKE DL*11.6:POKL DL• 
12*6:POKE DL•13.2 I SE t COLOR 0.8.4:POSIT 
ION 4.4 

Mil 128 7 «b; "•COOKY * S QUEST*' : POSITION 5.01 
7 »»6 ; "ANSCIIUL T Z/WElSGERHfcR/ANSCHUETZ** 
OO 130 POSITION 8.6:7 »6 ; **mSEE) start Id 
UXIli l " : xr PEEKC53279) 06 THEN 138 
HP I 48 DIM AS(25).05(25):GRAPHICS 8:POKE 
16.64:POKE 53774.64:POKE 752 ,1:SE TCOLO 
R 2.8*2*SETCOL UR 4.8.2 
OH ISO A5=** <*«-<*♦ <*•■ *♦ *♦ OS- 

*• •• 4« it ♦♦ ♦♦ *♦ *♦ ♦♦ 

SL 168 DIM OHPCb.bJ.MONSCbJ.CONSC6J.T3C21 
.MEPSC12) ;MONS = **^; C/:\": CONS = ‘* I M S 

T* = **J_** :MfcPS " 9 hPtcdob i JR I •• 


4 « *♦ *« 


o 


o 


SJ 

178 

FOR R 


HP C R 

,C)=A 

sz 

188 

DIM F: 

sz 

198 

DIM G 


<4* <*« <*4- 


*♦ * 

♦ <*• 

D1 

200 

DA 1 A 


.5.6 

.15,11 


.7-5 

.6.S* 

NT 

210 

DATA 1 

D8 

220 

DATA 1 

QJ 

230 

DATA 1 

MS 

240 

DATA 1 

OV 

258 

DATA i 

JC 

260 

DATA i 

NA 

2 70 

DATA 

MM 

200 

DATA 

GS 

298 

DATA 

61 

380 

DATA 

ED 

318 

DATA 

FO 

320 

DATA 

EO 

330 

55 

DATA 

RV 

340 

26 

DATA 

SK 

350 

DATA 

KZ 

360 

DATA 

HD 

370 

DATA 

OV 

380 

DATA 

P0 

390 

55 

DATA 


55 


DM 

410 

26 

DATA 

NB 

428 

DATA 

OU 

4 30 

DATA 

HM 

448 

DATA 

vv 

450 

DATA 

UK 

460 

DA t A 

SI 

4 70 

OATA 

DV 

480 

DATA 

TM 

490 

OATA 

MP 

500 

DATA 

DD 

510 

70 

DATA 


8.240.112.127*112.248.8.8 

8.64.96.255.96.64.8.8 
8.2*6.255.6.2.0.8 

8.8.63.74.252.8.8.8 

8.8.252.24.63.8.8.8 
8.48.18.92.58.72.28,0 
0,20.72.58.92.18.48.0 

255.135,219.219.219.219.135.2 

126.255.255.231.231.255.255.1 

68.24.36.66.66.36.24.8 
85.85.85.05.05.05.05.05 
254.254.254.0.239.239.239.0 
0.126.219.255.189.195.126.0 

255.231.195.195.231.231.231.2 

255.219.147.219.219.219.193.2 

126.255.255.255.255.255.255.1 

73.114.149.12.126.146.34.05 

20,62.42.28.42.34.85.85 

36,219,126,66.25S.165.36.231 

0.8.219.126.24.36.0.8 

240.80.248,30,7.33,67.62 

0.28.42,28,73,62,0.54 

124.84,124.40.254.56.174.238 

0.0.192.224.191,234.192,0 

60.66.129.2SS.165.165.255.0 

170.1 78.1 78 • 170 . 170 . 170 . 170,1 


RG 520 7 ••**• 

BB 530 DIM CHO S (31) : CH45="ab« rtf- f 9bi Jk I•• t _ 
■ <>X|n[a; :/\()]?":CHS=(PEEK(l«6) -8) **25 
6 

SW 540 PH= CPCLKC186) -123*•256111 PEEKCCMS* 
9)00 THE0 590 

TO 545 ? s? :? *• Oac noncnt Ple898.,«" 

; FOR H=1 TO 700 : NCKT M3? "a** ' POKE 559. 

0 

LH S50 TOB 1=0 TO 1023'POKE CHS^I.PEEK!57 
344*1):NEMT I:FOR 1=1 TO 313CHP=CHS♦(A 
3CtCHASCI))-32)-*8 
PZ S60 IF I<13 I MEN CHP=CHP*256 
JO 570 FOB J=0 TO 7:READ A:POKE CNP*J.A:N 
EHT JTRENT 1 

IL 588 FOR H-=PM*64 TO PM*128:POKL H.2SS:N 
EHT K 

PO 598 POKE 53277.3:POKE 54279,PM^256-4:P 
OKE 623.1:POKE 53256.3:POSITION 2,12:P 
OKE 559.6? 

BL 600 OPEN »1,4.0, "K: *• I 7 ~ 1§H 

PERT OR 10EG INNER**; t GE T Ml.*:If K<>69 A 
HD K<>66 THEN CLOSE »1 ; 7 ••♦”:GOTO 608 
UE 610 7 **A*' : POKE 559.0: POKE 784.2 : P 188: 
SC—PEEK (88) »256*PEEK(l)9) :t-UH 30:R1-S 
C♦472:LI-18tRL=7 

DT 628 MO1=4 SMO2 = 12:U 1:ST-23:TS=15:POKE 

82.8 

IS 630 POKE 756.CHS/256:GOSUD 10/8 
UK 640 PUS IT ION 4.3:7 ’M&IiKi'aBB* ♦ 

n*': POST I ION 1.6:7 **5C ORt "8* ♦♦ •■♦♦♦LIU 

ES = 10t * ♦ • ♦ • ♦ • ♦ • LEUEL = 1'* 

PP 650 POSITION 1,12:7 "TREASURES=0” 

IM 660 FOR V = 1B TO 213POSIIIO0 0.VJ7 •»<<< 
<<<<«<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<** 

;:NLNf V 

VD 678 POSITION 27.3.*? ••??????????•• 3 POSIT 
ION 27,12:7 "?»????????» 

GA 680 FOR R=4 IO IMPOSITION 27.RI7 ••?•*: 

POSITION 36 . R : 7 **7**:NEHI R 
tt 690 POSITION 5.19:7 "1 SUORD 3 MACE 
5 L-BOLI *'3 POSIT ION 5,20:? *•? ARE 

4 KNIFE 6 FIREBALL” 

MR /»0 POSITION 14.3:7 "#eeaooctM'«i'": POSI 
11 ON 14,13:? : FOR R 4 TO 

12: POSITION 14,R:7 •••••* POSIT ION 24 . B 
DJ 710 7 *•*••: MEHT R: FOR R-4 TO 6:POSITIO0 
15. R:? ••<<« <<<••; POSIT ION 15.R + 6:? 

*•<<<<<<<< <** : MEM I R 

MU 720 N~PEEK(Ml) 3 POKE HI .M + t28:POSITION 
2.8:? •• *•: POKE 704,42*CK 691 ♦ 1 32* CK=66 
):POKE 5S9.62:POKE 53248.160 
61 730 J—STICK(81 

AU 740 IF NOI CCR-RL AND ((DMT<5 AND L>1 
) OR (DMT <1 AND E=l))> THEN 760 
PO 7S0 POSITION 4, IS: 7 **VOU MILE WANDER L 
EVEL ";L;" FOREVER**-I OR M1AD-8 TO 0 ST 
EP 0:NEHT MIAD 

OC 760 IF J=14 AND (N 65 OR N 67 OR N=60 

OR N-88 OR N=90 OR N=«3 OR N-124 OR N< 

11) THEN ST-1:A=?:A1=916010 828 
ID 778 IF J=±3 AND (N 65 OR N=81 OR N GO 

OR N-69 OR N=07 OR N Hi OR M^124 OR N< 

111 THEN ST= 1:A=9:At-7iGOrO 820 
DP 708 IT J**7 AND CN=65 OR N=01 OR M-87 O 
R N=02 OR 0 HO OR N = 90 OR 0=031 fHEN S 
T=-1:A~20:A1 18:GOT O 1820 

cOAimucd on next p© 9 < 
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GU 798 IF J-ll AND («=!>? OR 11 = 60 OR M = 69 
UR H«S? OR M = 82 OR 11=88 OR 11 = 83) I MLR 
Sf-i:ft=10: A1=20:6OTO 1828 
ZZ 088 If 8=6 OR M=lfl THEM 2868 
PE 818 GOTO 738 
TH 828 V-SI«l:P«KL HI, N 

MM 038 IF 8=12-1 OR 8 = 6 OR 8 18 IIILM USB 
LM BIB GOSUB 950«CN- 69 OR 8=60 OR 8=67) ♦! 
80** CM 65 OR 8=98 OR 8=81 )♦ 1 ROM*(8 83 O 
R 8=07 OR 8=88) 

VF 0S8 A-A-U:R1 A1V:X1=X1 ST**48 : M = PEEK(H 
1):POKE HI.8*120 
LO 868 XT 8=66 THEM 1898 
HO 8/8 IF 8=68 THEM 1918 
80 888 IF 8=67 OR 8=69 THEM 1938 
EF 898 II 8=07 OR 8=88 THEM 1 9S8 
VA 988 IF 8=81 OR 8 OR f MEN 1978 
LY 918 TF 8 03 TIILM 1998 
UR 928 IF 8=3 OR 8=11 THEM 2818 
AG 938 IF 8=6 OR 8=18 THEM 2868 
XL 918 POKE 77. 8iGOTO 738 

HK 968 FOR 14= A TO A1 STEP 11 : PO r >I ? ION 15. 
U:? *•<<<»■; POSIT 108 15,W*V:7 •• : r 

EKT U 

UH 968 FOR U= A TO A1 STEP 5?:POSITION 15. 

U*U:7 “<<<»XNLKf M: RETURN 
PR 978 GOTO 738 

KD 980 FOR M=A TO A1 STEP SHPOSlflON 21. 
Ml? •*<<<••: POSITION 18,U»V:? •• ••: M 

EXT U 

OF 998 FOR U=A TO A1 STEP STrPOSlTION 21. 

M*u:7 M <<< ,, rMEHT UHtIUWH 
IH 1888 FOR 14- A TO A1 STEP ST POSITION 15 
.Mi? ••<<< <<<**: POSITION 1S.U*U:7 •• 

M s NEXT U 

YC 1818 FOR M=A TO A1 STEP ST POSITION 15 
.mV:7 ■•<<< <<<**! NEXT U- RETURN 

RB 1828 U Sf“5:PUKE Ml. 8 

HF 1838 00=2858** CM = 6S OR 8=68 08 8= 83) *21 

88“ CN 67 OR 8 = 88 OR N = 98) *2158*» (8 = 69 0 
R 8=87 OR N 81) 

JM 1898 IF N <>82 THEN GOSUB 1140**CM=65 OR 
8=68 OR N=03)*1168"CM=67 OR 8 88 OR N 
= 98) ♦ 1188** (8=69 OR 8 8? OR 8=81) 

SU I860 A=AVtAi=Al V : Ml-HI - ST: 8- PEEKCHI) 

:POKE HI.N*128 
71 I860 IF 8=88 THEM 2138 

YT 18/8 IF 8=03 THEN 2158 

HD 18118 IF 8 = 98 OR 8=67 THEM 2178 

UH 1898 IF 8=65 OR 8=60 THEN 7198 

AK 1188 IF 8=69 OR 8=81 THEN 2218 

2D 1118 IF N=87 THEN 2238 

HU 1128 If 8=3 OR 8=11 THEN 2258 
UV 1138 POKE 77. 8:GOTO 738 

MP 1198 FOR W=A TO A1 SILP SI POSITION 14* 
¥,417 03:POSITION U.41Y AS: MEN T U 
GZ 1158 FOR U=A TO A1 STEP SHPOSITION U* 
9.4:7 A3:NEXT WMIETUHN 
DC 1168 FOR 14= A TO A1 SIEP SfrPOSlTlOM M* 

U . 4 : 7 B9C10):POStfION 14. 4 t 7 G?C19):NEX 
T 14 

FS 1178 FOR U~A TO A1 STEP ST;POSIIXOM U« 
U.4:? 63(19):MEKT U : REfURN 
/» 1108 FOR 14= A TO A1 STEP ST:POSITIOO U* 

U.7X7 89(18) :POSI I 108 14.18:7 GSC19):NE 
NT M 

FS 1198 rOB 14- A 10 A1 SIEP ST:POSITIQM 14* 
0.18:7 G3C19):MCHT 14: RETURN 
66 1288 0P=8:0M RIGOTO 1218 

OC 1218 2-IN? (RMD(8)**2) : H3=16-*6*»2 : HH3 8:0 
n=e:MON IN? (KND(1)“5)*2:»(K = 19:KV 8 : TOP 
=8:IF L=S THEN MON=l 

UP 1228 TH INI (RND(8)**7)*16:TY=INf (UNO (8) 
••7) *5 : TV- TV* C ? V = 8) : POSITION TH.IY:7 T3 
IZ*1.Z*l> 

AM 1230 IF L 1 AND X1=SC*428 THEN PUS1TIO 
N 19.5:7 **K” 

HT 1248 IT L=5 AND K1-SCH9S THEN POSITIO 
N 19.5:7 ••)•• 


HI 1250 POSITION M3.MM3;? MQN3(MOW.MON):P 
OSITTOM KH.KV:? •*>•• 

OA 1260 POSITION 10,16:7 "CHOOSE YOUR UEA 
PON!*'; : GST »1. OULP: 014EP- QMLP-40 I POSIT I 
ON 10. 16:7 •• 

IL 12/0 XT 0MEP>6 OR OUEP <1 THEN 1260 
AI 1280 MTAD1~1-1:HPOMPCNUN.OUtP):OUtP 
8I4EP**2-1 

S14 1290 POSITION M3. MM3:? COM3 (MON . MON) : 8 
C INI (?**RND(B) *1) : CO= IN ! (2 “RND (8) *1) 

»H 1388 POSITION M3 . MM3:7 CONSCMOM.MON) :A 
C=IMT (2**HMD (B) ♦ 1 ) :CB TNT (2“RND(8) *1) 

RJ 1318 M3 = M3* CBC -'!)•* CM3 < 22) (IIC = Z) * (M3> 1 
6) 

LE 1320 MM3 =-MM3* (CB = 1) *• (MM3 < 11) - CCB- 7) “ CM 
M3>5) 

LM 1330 POSITION UK . KY : 7 •• ** ! UH MX** J14 
ID 1348 POSITION M3 . MM3 : 7 MON 3 (M(IN - MUM) 

OD 1350 J=STICK(O) 

UO 1360 II S1R1GC0) =0 OR JU= 1 THEN 141)0 
KX 1370 IF J=14 THEN POSITION KX,KY:7 «• •• 
lKY KY 1 

HC 1500 IF J = 1 3 THEN POSH ION KX, KY: 7 •• •• 
:KY=KY*1 

CT 1390 II J= 7 THEN POSITION KH. KY 1 7 " 
KH-KH*1 

IN 1408 IF J II I HEN POSITION KK. KY: 7 •• •• 
: KH KH 1 

CD 1418 PE = P£EK(SC-*KH*KV**4B) : If PE = 61 OR 
PE-63 THEN SOUND 0,10,18.18:DM? -DM1 ♦ 1**» 
1:SOUND 8,0,0,8:PT = PT*5:G010 1460 
IS 1420 IF PE 9 THEN SOUND 0,10,10,10:KEY 
=1-1:SOUND 8,0,0,8:GOTO 1460 
MW 1430 It PE 6 AND KEY THEN POSITION 4.1 
6:7 ••YOU HAUL ESCAPED THE DUNGEON •••** 1 
TOR Ml AO =0 TO 0 STEP 0:NEHI Mt AD 
HH 1440 IF PE=5 THEM 1460 

CU 1450 IF PE>0 AND PL<>50 THEN SOUND 0.1 
B.100.10:L1L1 1:GOT□ 1660 

DU 1460 POSITION KX.KV:? 

TC 1470 GOTO 1290 
00 1400 J=STICKCB) 

6H 1490 UEP OUEP:PL-PLGK(SC*KK+KY«4B):IF 
PE>0 AMD PL <> 30 THEN SOUND 0.10. 1MB. 10 
»Cl-LI 1:GOTO 166B 
DU 1500 IF OMEP>6 IHLN 1550 
HB 1510 .114 8 

PU 1520 IF J=7 AND KH<22 IHLN UM=KK*1;G01 
O 1620 

•M 1530 IF J=il AND KK>16 IHLN ULP=UCP*1: 

MM=KM-1:GOTO 1620 
SV 1540 GO10 1290 
OH 1550 IF .114 1 IHLN 1590 

MG 1560 IF J=? AND KX<22 THEN RA=1:UX-KM: 
GOTO 1610 

PJ 15/0 IT J=ll AND KX>16 THEN RA=-1:UM=K 
H:GOTO 1610 
IM 1500 GOTO 1298 

ZH 1590 PE1=PEEK(SC*MX*KV<*48) : IF PL161 O 
R PEI=63 OR PEI=59 THEN UH 8:JU=0:GOTO 
1290 

CJ 1600 II PL1> 8 THEN SOUND 8.16.14,10:JM 
=0 : TIIP = THP*HP“1 •*! : SOUNO 8,0.0,0:11 T HP 
38 TIILM P?-P?*10:GOrU 1668 
EU 1610 MLP=MLP* CRA= 1) :UX UM*RA**<UX<23>'* 
(UK> IS) : JU- (UX<22)«*(UH> 16) 

ZE 1620 PEI-PEEK (SC'*UH*KY“403 : IF PE1=61 O 
R PEI 63 OR PL159 IHLN WX = 0:JU-0:GO IO 
1298 

LS 1630 IF PEI>0 THEN SOUND H.16.14. *0 : JU 
-8: I HP-IMP • HP** 1-1: SOUND 0.0.0.0:|l IMP 
=30 IHLN PT=PT*10:GOIO 1660 
HR 1648 POSITION UK .KY:7 ULP3CWLP.ULP) 

TA 1650 GOTO 1290 

CN 1660 FOR U=S TO IMPOSITION 18.14:7 •• 

":NEXT W POSITION 7.8:7 LI;" "ISO 
UNO 8.0,O.8:CR = CR*l: POSIT TON 7.6:7 |> I 
KP 16/0 POSIII ON 11,12:7 DMI 

FG 1680 IF L1<1 THEN POSITION 15.1517 "GA 
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ML OVER":POSITION 7.16:? "PRESS BUTTON 
fO PLOY flljftlM": COT O 21HB 
CY 1690 J-STICK(B) : Uf' PEEK (Ml-40) :DO=PEEK 
CK1+4*) :K) PttK(Hl‘U :H0 PttK(Hll) 

IIP 1700 IF J = 14 AND (UP=6S OR UP-01 OR UP 
=68 OR UP=69 OR UP=8? OR UP=83 OR UP = 1 
24) I HEN UU 1J SI -1 : 60 III 1750 
OS 1/10 IP J=13 AND (DO 6S OR 00=6/ OR OO 
=6B OR 00=88 OR 00=90 OR 00=85 OR 00=1 
24) THEN 0M*2? ST »*-l:GOTO 1/S0 
08 1720 IF J=ll AND (00=65 OR 80=81 OR 80 
87 OR 88 87 OR 88 88 OR 88 90 OR 88 8 
5) I MLR OM=3:3T=i :GOTO 1810 
ZI 1730 IF J=7 AMD (FO=67 OR F0=68 OR F0= 
69 UR FO 8/ OR FO 82 OR FO 88 MR FO 83 
) TMtN 0M=4 tST= -1:61)10 101B 
UV 1/40 GOTO 1690 

NS 1750 IF OU 1 THEM 8=4:01=11 
Sll 1/60 IT 0M=2 t ML M 0=12:01~5 
VII 17/0 POSITION lb,0l*ST:? " ": F OR 

U=0 TO 01 S1LP ST:POSIIION IS,Ml? "<< 
< <<<*•: POSIT ION 15,U*ST 

IJ 1700 7 ••<<<<<<<<<": MEN I U 
81 1790 POSITION 15,Ai*ST:7 "<<< <<<" 

0Y 1800 V 3~ST:0 ?«»<QU tl*9-COU=7) :R1=9«( 
014=1) •/«(OU=Z3 :POKL Ml. 11:6010 DS0 
TM 1810 IF 014= 3 THEN 0 = 15:01 = 22 
UM 1028 IF 0M=4 THEN 0=23:01=16 
UC 1830 POSITION 01*ST.4:? H5 
SR 1840 FOR 14=8 TO 81 STEP ST POSITION 14. 
4:? 83 

HD 1860 POSITION M*SI,4:? C$:NKXT U:POSII 
ION 81*ST « 7:? 85(19) 

RC I860 V=S«St :A=10»(OM=3) •Z0**(OU=4) :R1 = Z 
0~(OU=3)+18*«(OM=4) :POKE HI. 11 :GOTO 105 
0 

HU 16/0 RESTORE 2300*CL 1>«20 
KM 1000 FOR P = SC*100 TO 5C«46U MLP 40:TO 
R RT=P TO P*7:RERO H:POKE RT.M:NEMT RT 
:NEMI P:RE TURN 

TC 1898 TOR 14=0 TO 01 STEP Sf:PO6IT10R 21 
.«:? NEMT U 

IV 1900 MIR MR 10 01 STEP Sf:POSII10N 71 
,14:7 ••<<<••: POSITION 21.U*V:7 " " : NEM 

T U:GOTO 730 

MR 1918 I OR M=R TO R1 STLP ST:PUSltlON IS 
,M:? " ••: NEMT U 

UE 1970 FOR M R TO 01 SIEP SMPOSITIOR 15 
,M:? ••<<<••: POSITION 15.U-V:? •• " : NLM 

T M:60TO 730 

MX 1930 FOR M R TO 01 STEP STrPOSTTION 15 
.M:? •• •• : NEMT M 

UO 1940 FOR M= 0 TO 01 STEP StrPOSITION IS 
,M:? "<<<<<<":POSIT ION 15.U«U:7 " 

NEMT M:GOTO 730 

YJ 19S0 FOR U= A TO R1 STEP ST POS1IIOR IS 
.Ml? •• ": NEMT M 

6X 1960 FOR M=0 TO 01 STEP ST:POSITION IS 
.M:? "<<<<<<<<<":POSITION 1S.U*V:7 " 

••: NEM 1 U: GO III 730 

SY 1970 FOR 14=0 TO 01 STEP S1:POSIT10N 21 
,M:? " '• : NEMT M 

UE 1980 FOR 14=0 TO 01 STEP SMPOSIIIUN 18 

,M:? "<<<<<<":POSITiaN 21.M<V:? " **S 

NEMT M:GOTO 730 

VV 1990 FOR M-0 TO 01 STLP SUPDSITION 15 
. M: 7 " **: NEMT M 

Dl, /HMD TOM UR TO 01 STLP ST: POSH ION 15 
. M : 7 ••<<< <<<": POSI T ION 15.U»Vi? " 

** : NEM I M : GO T O 730 

JZ 2010 POSITION 15.0:7 ••<<<<<<<<<" 

LO 2020 0i=ll«(St 1)*5»<ST 1) 

0Y 7030 FOR U=0 fO 01 SIEP SI:Pl)SITION IS 
, U: 7 ••< <":POSIIION 15.U*ST:7 "< 

<<<<<<<<**: NEM I U 

CL 2040 PUS (II ON 15.0:? *•<<<<<<<<<••: IF N = 
1 THEM OP 0:DH=O:GOTO 1210 
UL 2BS0 GOTO 1690 

80 2068 ir (L?1 0ND DMT<S) OR (L=l 0ND DM 


T <1I THEN 230 

0B 28/8 CR 0 : PI PI *50 : IF N 6 I MLN L-l-HO 
MT =0:N = 18 - GO IO 2108 
(,* 2888 IF N= 1 0 THEN L = L* 1 : DKT=0 : N = 6 
DM 2098 fUR S-16 TO 32 STEP 4:SOUND 0.S.1 
4,10: DL LA**LA*L0 : SOUND 8.0.0.0 : K0*1 *+1 
NEMT S:GOTO 2110 

NH 2110 HL = 7«CL = t)*9»CL-71»15«»(L=J)*15*CL 
-4)*12«ML 5) : POSI I ION 7.10:? L : POM f 10 
N 11.12:7 "0 " 

JG 2120 GOSU8 1820:6010 230 

UC 2130 FOR 14=0 TO 01 STEP SI : POSI I ION M. 
4!? 05(19]:NEMT M 

RS 2140 FOR MR 10 01 SIEP ST:POSITION U« 

V « 4 : ? (13 (19) POSITION M. 4 : ? 65(19) :NLK 
T Mi GOTO 73R 

ZJ 2150 FOR 14=8 TO 81 STEP STiPOSITION U. 
4:? B3:MEM I U 

MI 2160 I OR U=0 TO 81 STLP SHPOSITIOM U« 
0.4:? D5:POSITION M,4:7 05:ML XT MiGOlO 

730 

Ull 7170 FOR MR TO 01 SIEP ST : POSITION U. 
4i? 03(19):NEXT M 

UI 2180 I OR 11=0 fO 01 STEP ST: POSITION M« 

U. 4:7 83(19):POSITION U.4:7 F5:NEXT M: 
GOTO 730 

ZV 2190 I OR U=R fO 01 STEP ST .'POSITION U. 
4:7 85:NEXT U 

KG 7700 FOR U=0 TO 01 STEP ST; POSITION M-* 

V . 4 : 7 ||3 : POSITION U.4:? 63 : NEXT U:60T0 
730 

IE 2210 FOR U=0 TO 01 STEP ST:POSITION M. 
?:? 03(10)iNEMT U 

UT 2220 IOR U=0 TO 01 STLP ST:POSlT!ON M« 

V. R:? 83C1R);POSITION U.R:7 F3:NEMT M: 
GOTO /30 

VP 2230 FOR U=0 TO 01 STEP ST:POSITION U. 
10:7 85 (19) :NEXT U 

GH 2740 FOR U=8 TO 01 STEP ST:POSITION U+ 

V . 1 0 : 7 83(19) ;POSTTIOM 14.18:7 G3(19):N 
EXT LliGOlO 730 

MB 2250 POSITION 0.4:? G3 
OS 2260 Ai-22~CST 1 ) ♦ 1 6~(ST = -1) 

DM 22/0 IOR M= 0 10 01 SILP SfiPOSItlON M. 
4:7 H5 

TU 2780 POSITION U*SI.4:7 C3:NEMI UrPOSTT 
ION 0,4i? 65:IT N=3 TMLN QP=0:0M=0:GOT 
O 1210 

VB 2290 GOTO 1690 

MO 2300 D0I0 0.3.87.82.82.82.82.69.81.68. 
6S.69.90.3.69.174.174.18.124.124.81.87 
.88.5.90.80.6/.3.60.01.02.69.81,8/ 

LZ 2310 DATA 02,69.90.6?.81.6?.90,83.82.8 
8.82.87.88.69.3.174.81.3.82.3.69.174,9 
0.68.88.82.80.02.O0.67 
RT 2320 DAT 0 81.87.3.81.3.87.87.69.65.68. 
124.1Z4.66.60.3.124.124.6,124,65,5,90. 
03.67.3.67.65.68.65.07.67.3.90.02 
VC 2330 D0T0 62.90.3.124.81.68.81.87.82.8 

7.88.67.124.18.124.3.82.3.69.81.68.124 
.98.88.82.88.80.67.90.67, 

GS 2340 DATA 81.3.82.3.87.87,87,3,10.65,0 
3.8 7.67.3.67.124.65.83.3.88.69.124.81. 
3.3.67.124.81.3.68.65.69.0.81.88.68 
HR 23S0 DAtA 90.03.83,68.3.83.87.3.69.3.6 
7.6.0.124.90.03.80.67.81,68.3.88,3.08. 
3.82.67.3 

US 2360 DATA 81.3.69.3.81.3.87,69,6.90.83 
.83.88.67,65.3,90.3.67.65,8Z.3,90,69.8 

1.69.81.3.69.90.87.3.3.68.65.67.124 

SO 2370 DATA 81.88.68.65.67,3.07.3.BO,87, 
3,10.81.67.124.65.69.65.68.90.3.82.3.6 
7,90.5.6/ 

TH 2300 DATA 01,07,02,02.02.02.69.3.90.3. 
81.3.69.3.90,67,81,6/.124,01,83.00,87. 
3.3.81.68.3.124.3.82.67.90,BO,6/,6S 
UD 2390 DATA 67.124.81.3.81.69,0,90,69.65 
. 88.68.6.65.3.81.3.65.3.124.90.6/,9M.8 
continued on next page 
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0.02.88.02,67 

UP 2400 19 STRTGCOTOO THEN 2400 

TO 241II POKE 7O4.PEEKC7I0) : POKE 532/7.OtR 

UM 



[ education^ 

MUSIC FLASHCARDS 


SF Ifl REN MUSIC rLASMCAUDS 
UM 20 RLN OY JAMES U. BUflUN 
Rll 50 REN ONI 1C MAGAZTME 

It 108 DIM IMOTECZ3) .CMFftSC?3) .KCUP6C73J 
ZM HO DIM NMl) . RNGSC1) 

MK 115 REM MILE SCREEN 
5 V 120 GRAPHICS 1 

MU 121 SETCOLOR 0.4.01 5L 1 COLOR 1.8.6ISEIC 
OEON 2.0.12:SETCOLOR 3.12.0 


EG 

123 

POSITION 

0.1J7 

t>6: " ::: iwk ::: 

LR 

X”6£I9«* 

124 POSITION 

0.2:7 

M6J**3 


ST 

125 

POSITION 

0.3:7 

1 * 6 ; "C 

MtAim FflDSGOE 

CU 

ROB! 

127 

6 " 

POSITION 

o 

+ 

«&; "k. 


OB 

130 

a*. 

POSITION 

8.5:7 

« 6 : "* 

12 V 

MZ 

137 

NM 

POSf1 ION 

8.6:7 

•i6;»*9 


TU 

135 

”•• 

POSITION 

B. 7 : 7 

« 6 ; "D 

JOSHS 8 . Brg] 

FI 

EN 

137 

L" 

POSITION 

0,8 : ? 

•• 6 ; M k 


JL 

140 

EX¬ 

POSITION 

0,9:7 

mo: ••« 

11 OK 


DU 141 REM OSIER.7 SPACES.CIRL-V.IMV 8 .IN 
V-CTRLS.7 SPACES.IMVIIRLJ 
HO 147 POSITION 0.10:7 MbJ**4 
w" 

LD 144 POSITION 0.11:7 M6;"E1 
6 .'* 

TN 145 POSITION 0.17:7 1*6 ; * ‘L 6 . ♦* X_G *• « X-K 


Li 200 REM SET UP MOTE VALUES 

UZ 70S RESIORE IOOO 

ID 210 FOR I I III 23 

HL 215 READ N:INO f E(1)=N:NCHT I 
TF 770 FOR 1=1 TO 23 

Eft 225 READ MS:COO T ES(I» 11 MS:ML M I I 
IH 230 FOR 1=1 TO 73 
IU 235 READ MKCODETII N:NEH1 I 
LA 256 TOR J—23 TO 1 SIEP 1 : SOUND O.INOT 

LC JJ .10.8:FCIR D 1 10 SO:MLHl D: GOSUB 5 

ON:NEXT J 

OJ 738 I OR J=1 TO 21:SOUND N,INO IECJJ .lO. 
OirOR 0=1 TO SOlMLKT DlGOSUB SOHTNtHI 
J 

Mt 240 CH 764:REM KEVCODE BUFFER 
UK 245 CRS I Mll=: 752 :SMFLQK 702: OLDSCOR l 
GT 249 REM START MAIN LOUP 
AD 250 DEL =S0: MAH 11M 1 MM : 'tCIJRE = 0 
RC. 765 POKE CRSlMH.l 

KM 260 7 "H«»m «nng notes >iu vou want**: : 60 

sun isee 

C.0 765 TRAP 1265: INPUT NRNOS : TRAP 40000 
ML 767 IF NRMDS <1 IHLM 260 
VY 769 GRAPHICS HIPOKE SHFE0K.64 
16 270 7 :7 ••Enter Irfl lor treble cg « lef 

3 only.** 


PC 275 7 i 7 ••Enter mm for 649.9 CF tie!) 

(Ml 1 V . •• 

OE 277 7 :7 “Enter U For whole stall." 
SG 780 GOSUB 1600 : T RAP 1200: INPUT RNGSMR 
AP 40000 

UA 205 IF RNGS <> '•S'* AND RMGSO ”F M AND RN 6 
5<>%" THEN 270 
EF 299 REM DRAU STAFF 
ZE 500 GRAPHICS 7 1 COLOR 1 
FA 301 SEI COLOR 0 . 10 , 0 :RLM STAFF 
ZP 502 SLI COLOR 1.7, 10:REM NO IE (AND I EH T 
LUMINANCE) 

FV 303 Sfct COLOR 2.0,?:REM TEHT UIMDOU 
UM 504 SET COLOR 4. 8 .2 ;REM BACKGROUND 
PQ 305 FOR CLEI 5 I (J 2 
UO 31M MIR LINL-l 10 5 
HB 316 V G**LIME+ 36**CLEF-3? 

Rll 320 PLOI 1 « Y : DR AUTO 1 69 . Y 
FA 325 MEM I LIME 
ZK 37/ MtHl CLLT 

JJ 550 RESTORE 1068 READ H.VrPLOt H.V 
UM 34H 9 UR P01NT=1 TO 14 
DC 345 READ X.V:DRAUTO H.Y 
EE 350 MEM I POINI 

KE 360 RLSTORE 1068:READ X.Y:PLOT H.Y 

VI, 366 I UR POINT =1 TO 14 

AT 570 READ X.V:DRAUTO H.Y 

EX 375 NEXT POINT 

ZL 380 PLOI 28 . 4V:PLOT 20.55 

RJ 386 POKL CRS1NH.1 

HT 4 MM f no ROUND = 1 TO NRNDS 

MM 402 RLM PICK A NOTE AND SHQU If 

TF 405 N t♦INICRMI) (03 ”23):SOUND 0.0.0.0 

CO 406 IF RMGS = *'F" AND N<14 T HL N 406 

CB 407 IF RMG3 “G" AND N>1J THEN 405 

LX 410 GOSUII 900: REM DRAM IT 

JT 412 UROMG M 

MO 413 RLM MAI I TOR KEYPRESS 
AL 415 I1in=MAXTIM 

NM 420 I IIK=ITIH-1 : FOR D-t TO DEL:MLXT D 

CM 422 IF ITIM<1 I MEN 440 

ZA 425 7 "A**; HIM. "NOIE7 •••GOSUB 1SOO 

KV 430 II PLLKCCN) 255 THEN 420 

TN 435 If PECKCCH)=KC ODE(N) THEN 468 

ZY 43 7 REM URONG - BUZZ 

HA 439 UROMG=MRONG*l 

£1 440 SOUND O.05.12.8:POKE CH.2S5 

US 445 FOR 0=1 TO DEL:NEXT D:SOUND 0.0.0. 
O 

AL 446 II URONG > 2 THEN ITIM-0 
IL 447 II I IIM<1 THEN 465 
NT 450 GOTO 420 

PX 459 REM RIGHT - PLAY I HE NOTE 
XI 460 SOUND O.IMOIECM)*10.0 
KX 461 MM=INOVECM) : IF NM M I HEN MN=?S4 
XS 462 SOUND II.NN. 1 H.II 

SJ 464 REM UTGHI OR T IHLOUI SHOU II 

UR 465 7 m O**J HIM."NOTE IS "5 EMOTES CM . Ml 
ZZ 478 MIR 0 1 TO DLL **4 : NEK T D : POKE CM . 26 

5 

VZ 476 GOSUO 080:SCORE SCORE♦lTIM 




54 ★ ASTtCSOFTWARE UUKAN) 


FEB fit ARY 19X3 


163 







game of the month 


by ERIC ANSCHUETZ 
ROBERT ANSCHUETZ 
and JOHN WEISGERBER 


A windowed scrolling maze adi'en- 
lure uherv you fight monsters while 
Marching for the magic key that s 
your only escape from a multilevel 
dungeon Runs in MASK on any 
Atari computer with 32 K disk or 24 K 
cassette. 


Trapped in an evil dungeon, your only 
hope of escaping is to descend co che 
lowest level. retrieve the magic key, 
and use it to unlock the portal at the 
uppermost level. 

Check the program with TYPO II 
as you type it in. SAVE the game 
before you Hi N it Playing Kooky's 
Quest uses the keyboard and a 
joystick in port one. There are two 
skill levels. In the beginner game, 
you're aidetl l>y a displayed map «>1 the 
dungeon, which is erased for the ex¬ 
pert game- 


lb move from one dungeon level 
to another, you must obtain enough 
treasures—rings and chests. You need 
only one treasure to descend from the 
first level to the second, hut you’ll 
need five lo reach each of the deepest 
dungeons. 

Once you have enough treasures to 
change levels, go to the up or down 
staircase, shown with a D or t' on the 
map. If you are playing without the 
map, you can identify a staircase by 
sound effects, because the stairs aren’t 
in your view 


VICTORY OVER MONSTERS 


(retting treasures is not an easy txsk. 
In each room, you will find a treasure 
and a monster li is important to get 
to the treasure before the monster gets 
it, before you kill the monster or the 
monster kills you In each c;tse. you'll 
lose the treasure. 

If you clear all the rooms on any 
level and don’t have enough treasure, 
you'll be lorced to wander that level 
forever—or until you stop the game. 

You have ten lives for the entire 
game. If you’d like more, rejuvenate 
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yourself ;u line 610. 

You!! Ik- asked to choose a weapon 
as you enter a room Available 
weapons are listed at the bottom of 
the screen and can In- selected with 
numbers The axe, mace and sword 
are sw mging weapons—press the fur 
button and move the joystick fnmi left 
or right 

The knife, lightning bolt and 
fireball are throwing weapons. They 
are used in the same way as swinging 
weapons—except they continue 
mm ing in a straight line until they hit 

February 1985 


something. 

Choose your weapons with care 
Each has different properties. You'll 
find that some require six hits to kill, 
others only one hit. 

Note that while fighting, you can 
only attack to the left or right, and 
can I protect yourself from above or 
below. 

You can encounter six types of 
monsters—vampire hats, giant 
hobgoblins, wicked skeletons, 
venomous serpents, decaying mum 
mies and malevolent spiders that In¬ 


habit only the lowest level. Your 
adventurer. Kooky is shown as a 
happy face symbol 

Instead of escaping the dungeon, 
you may choose to accumulate points. 
Treasures arc worth five points, 
defeated monsters ten 

Alt three authors ate IIhyear-old 
computer science majors at Eastern 
Michigan University q 

on pose SI 
57 
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10 
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16 
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18 
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21 
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24 
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STAR VENTURE by Ronald Saari 
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23 
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DARKSTAR by Michael Mitchell 

Zapping aliens with radioactive waste 
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31 
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bonus same 


Only your plumber’s helper 
can save you! 


F.RIC and ROBERT ANSCHUETZ 
and JOHN WEISGERBER 




Discoier the thrills unit excitement 
of being a Sanitary Engineer 
(plumber) as you enter a maze of 
killer pipes This IVXSIC program 
work s on all Atari computers of any 
memory' size, with dish or cassette. 
Jt<st type in Listing A check it with 
Jl 'PO LI and SAVE a copy l>efow you 
RUN. 


Dear Miss Goodman ners 

Is there a correct way to stem a ris¬ 
ing tide of bathroom hack ups while 
entertaining distinguished guests in 
my 49-room mansion? 

Concerned 

Dear Concerned: 

Miss Goodman nets prefers the term 
water closet. . . Sadly, overflow pro¬ 
blems are pan of our modern age and 
must he dealt with firmly and quickly 
Miss Goodmannent would never 
commit the laux pas of emharassing 
guests during a sumptuous banquet by 
confronting them with a mass of raw 
sewage 

Mbs Cioodmanncrs would award 
you credit for decisively hurling your 
plumber's helper at each of the 
overflowing water closets, while tact¬ 
fully running between pipelines 


without scaring the guests. Of course, 
sewage problems tend to get worse as 
a party wears on—especially if guests 
discover that the duck pate has 
disagreed with them. 

With apologies to our favorite eti¬ 
quette columnist, this program uses 
players for the plumber, plunger and 
central pipe. All vertical motion is pn> 
duccd using a string primed at the 
correct place in memory, The main 
graphics mode is ANTIC 5. 

An unusual technique here is the 
use of basically the same memory ad¬ 
dress for every line of the play field 
graphics. Each line has Its own I.MS 
and the high byte on every one is set 
to the same page. The water is moved 
back and forth In incrementing tire- 
low byte on each IMS. The increment 
for each line is held in a onc-dimen- 
sional array If a column of sewage is 
hit by the plunger, the increment’s 
sign is simply reversed. 

Members of t/>e noted Antic game 
programming team of Anscbuetz. 
Anschuetz, and \Xkisgeti>er tell us 
tlntt tin*)' aw currently attending 
Eastern Michigan University and 
uould tike jobs as programmers 
when they graduate 
Listi nig on page 69 H 


Aily 19135 
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TI OB 5.51* Mb j "%cnut, M ; SC : K-K ♦ 1 NV 740 M1-2GOTO 261 

5T 270 U1COLOB B.K.MUP N>3SI THEN GOSliH NT 500 FOB D- • TO 3:S0UND D*0*N,0:MEMT O: 

SOB'GOTO 40 utlURH 

BO 200 IF STRI6(N)=N THEN GOTO 00 


bonus game 


OVERFLOW 


LISTING 1 SB!5S<^ 


IIM IO RLH OVERT LOU 

FU 20 REfl BY ANSCHUL t//UC1 M.KROCN/ANStltUL 
12 

ru so ren (« ) 1YB5. noiir. puulimiini. 

UC 40 111 ML. SO . UATfl* :HI U 

CO 50 POKE 1«6.PLLK(/1«) 

HP 60 HEM-PEEK (&Obl : DE = (HEN 5>«2Sb : E»l (Nt 
H-4 1 **2T»n : JM = HEM- 12 : k« HEH I « :RA ( ML H 9 
)*2S6:S=(HEH 7 1*256 

HA 7N GRAPHICS 2 : POKE /BI.MiOIN 0(101. AS 
(46) .8* ( lb) ! POKE 255.0:P0S1I ION 6.619 
Mb : “OVERT HIM" 

DU OO POKE 210.30 : POKE 212. SO:? :? •* A 

ntcNuet i/He laurrbr r/ti n»chiM»tl"i UOtO 4 1 

O 

MM 90 POKE /#'!. IUMUPOKI 710. UA T R : POKE 71 
2. O l POKE 702.TUML 

DM IIIO POKE 09. JH: IMIKE 756 .HEM 4: POKE 559 
» 62:POKE bbM.o.POKE 56 1.HEM-6 : POKE 537 
51 . 120:POKE 53240.123 
MM 11H 7 ;7 : 7 : 7 :FII« M 1 to I II i O (H) IM1 

(RMD<i)-2l-7 1 ! MLKT H :SC O :POKE bSb.N: 

PUKE 632.1b ? "UVEUFLOU" 

OH 120 PUKE b 5 7 . 4 I V "SCORE : O •• 2 t POKE t. 

57.26!* ••MICH : " ; Mt ; 1 VM 33 : POKE 0(I.VM:P 
OSITIOM 0.0:? Mb:A3 (17.38) 

KO 130 UL DIM ! C'O : TOR X l)L»4 ID DL*S| ST 

EP 3 I Y TNI (NND I 0) "111 • till V - V • (V/20IN 
(IY/2)):POKE K.YtMEMt K 
51 140 C = C*l:(IL UL»A:PriKt OE . PE E K t U L ) • U l C 

) 

II* 150 POKE 53278.0111 0L>DE*20 THEM OL-O 

L • 1 : C - O 

FJ lbM St-STICK(O) .'If 51 14 IIIEO V K : V K 1 6 

•• ( VM> 33) : POKE »»» . YR : Pt»SI T I ON 0.1#:? Mb I 
AS (17.46) 

VO 170 PUKE 20V.1UML ! POKE 71 O.UAIM 
LI tllll II ST = 13 THEM YX = YH ♦ 1 b- C YM < 1 7 7) ! PO 

KE 88 . VH-16 1 POM I I ON 0.0:? «t6;A3(l*30) 

CY 190 IF 51 = 7 AMD J O I HE M PLX 133:PEV=V 

X*3 : J 1 : FOKt n'i.LA PflKE 6 8 , Y M * 3 : P Cl 5 1 t 1 
UM 0.0:7 «6 ; BS (1 . 8) : POKE 89. IU 

DU 200 IF 61=11 AND J O (HEM PLX=115:PLV- 
VK»3: J- 4.POKE 09 , EA : POKE 88.VM*5 PDM 
IIOM 0.0:? «6 ; 83 (9. 16) : POKE «9 . JM 
MU 710 II PEEK (53255) >3 f HE N PUKt 707. MAT 
R : CO IU 360 

OO *70 If JON THEM 24M 
Nf *30 i.II f II 140 

CD 240 IF PEEK(53253)>3 THEM *70 
UO 750 POKE 63*49.PLK PLM-PLX* I 
DT 268 IF PEEK (53753)<4 THEM 290 
VI *70 HU (PLY 20)/16: IF SGN (U MID) ) <>%CM( 
J) THEN 338 

HH 700 SOUND M . T OO . 1 II . 1 8 : SC = 6C ♦ 1 O : U C HO ) 

Q(HU):POKE 657.10:7 SC;.6010 310 

ME *90 If PEN > 200 OR PLM<48 THEM 330 
MA 3 MM 1.010 140 

KY 310 POKE ??*8 IT SC-750 THEM SOUND O.b 
O. 10.1* : 1.0 10 350 

FN 370 II SC-500 1 ME N SOUND H. 6O .1O. 12:PO 

KE S32S9*3:POKt 5375 1 . 11 2:F OK K-l TO I 
OOrMEKt K 

UU 330 POKE 55249.0 : J -O : PUKE II9.EA:P0KE 8 
M . PEV : P0S1 1 1UN 0.0:7 »*(• ; A 3 (1.8) : PUKE II 


9 . .161: POKE 53278 . O 
HM 340 SOUND 0.0.0.0:6010 140 

SP 350 TOM M-l TO 10:O 1H) -0 CKI*2INEMt Mil 
OR X DL*4 IO DLMI STEP 3 : Y - P E L K C K ) : P O 
KE M.V« (V/7-IIM (V/Z)) :«t«I KM.UKI 330 
DM 360 J 8:POKE 65b*3;PUKE 057.91* "PRESS 
<StAR1> 1(1 OLbIM"::IF SOHC THEM HE - S 
E 

HP 370 VC VC«(YC<755> 255 m (VC=255):POKE 7 

M4.VC-H PEEK(S3279)<>b THEN 370 
»Y 500 FUR M=DL•4 IU DL*3l STEP 3:P0KE M. 
188 HEMI M J POKE 1)9.EA:P0KE 8B.PEY:PUSI 
IIOM 0.0:? 06;AS(1.0):POKE 53751.170 

VO 590 POKE 784.198 

LI 400 POKE 89. Ill: POKE 8 8 . V K : H O S 1 I I O M 0.0 
■t Mb!" ":POKE /O/.lUMLi 

POKE 55249.0:POKE 53259.1160(0 110 

IN 410 FOR M-M IO SI I I POKE M • CM.PEEK(H•57 
3441 NEMT K:r OR X « TO 23:MEAD A POKE 
M*CM.A:MEHI H 

SH 420 FUM X DL IO DL*7'.P0KE H.112:MEHI H 

row M OL«3 TO DL * 30 STEP 3 : POKE H-69: 
POKE M«1.188:POKL M•7.S/2S6:NEXT H 
EE 438 POKE DL • 5 5,66 : PUKE DL • 34 . PtEK I 6b•) 
:POKL DL•35.PEEKCbb1) : MIR X DL*SG TO D 
L•38:POKE M.2.NEMT M POKE DL-39.6S 
011 440 TOR H HA«3* ID RA*«9t:POKE K.2SSN 

LKI H :F UM M JU»?5b IO RA:PUKE X. 8 NEMT 
« »«W H-l TO 16 : HI (K . K) - •* " NEMT X 

MV 450 r OR K 17 III 38 READ A : A 3 ( M ) = C IIR S ( A 

*32) : MEM I M : A 3 C 4 6,4 6 ) = ** **:FOR K 1 I II I 

6-READ A:BS(Kl CMR3(A):MEHI K 
VF 4 Ml POKE 1*73.1: POKE 54279 * HEH-16 1 POKE 
537 77.3 : POKE 7 0 4.1 90 I POKE 705.1 9 II : POKE 
7B7.IUML:POKE 53259.1 
MU 4 7 M I DR K S 10 SMIB POKl H . 7 ! POKE H*1 
47.2 MLK1 K : III H K 5*1119 TO S»146:P0Kb 
H. 1 : M L KI K: SOUND 1.160.8*216010 90 
KY 4 II M DATA B 4.1 7II . 1 7II . I 7II . 1 7 A , 1 ? 0.1 7 8 . b 9 
• B4 * *55. *55.755.755.255.25S* 6 9 
XV 490 DATA 14.14.14.4.31.31.14.14*14.14. 
10. IB. IO. IO. 33. 35 . .39* 265,255,35.35.33. 
160* 1 711.1 711 • 7 55.2 55* 128.1*8- lbB 


End Program typing Agony Forever! 
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product reviews 


continued from page 76 

HraJ legacy offers six levels of play. 
The higher a level, the more enemy 
ships and missile sites you will en¬ 
counter. The different graphics 
screens are quite inventive and the 
sound warnings are effective. The 
8-page manual is very' good. 

In some way's this game reminds 
me of a more advanced Missile 
Command. The new game's main 
problem is that it lades strategy and 
tends to become a little repetitious. 
But overall, Final Legacy is quite enter¬ 
taining. It demands alertness and 
quick responses, and is a worthy suc¬ 
cessor to the great tradition of Atari 
action games. 

CHOPPER HUNT 

I magic 

981 University Avenue 
Los Gatos. CA 95030 
(800) 654-7X0 
32K disk 
$19.95 

Reviewed by Jack Bowed 

I don't want to take much space 
reviewing this throwback, hui Antic 
has a certain obligation to warn 
readers against junk products. Chop¬ 
per Hunt would make a very nice 
public domain game and might have 
been seriously considered as a profes¬ 
sional program when the Atari 800 
was just a twinkle in Nolan Bushnell's 
eye 

You mow a slow, blocky hdioopter 
hack arul forth across a crude, blocky 
screen, lx >tithing holes in the ground 
so you can get to the flashing grey 
squares. Meanwhile, a slow, blocky 
enemy airplane flies back and forth 
dropping slow, blocky 'din balls". I 
had to look tw r lcc to make sure my 
BASIC cartridge was not in the 
machine slowing down the action. 

If you plunk dow’n your hard- 
earned money for this outdated ar¬ 
cade game, you are helping prove that 


78 


Bamum was right to say, "T here’s a 
sucker bom every minute." The cir¬ 
cus has come to tow n and you are in 
the center ring wearing funny hair. 

REFORGER ’88 

Strategic Simulations, Inc 
883 Stierlin Rd. Bldg A-200 
Mountain View*, CA 94043 
(415) 964-1200 
$59.95, 48K disk 

Reviewed by Dr. John F. Stanocb 

Ever since the end of WWU, their has 
been constant tension along the 
border between Fast and \Xtst Ger¬ 
many. It is here that the two super¬ 
powers have deployed their most ad¬ 
vanced war technology. SSI’s new 
Kcforgcr f R8 Is an operational-level 
game of NATO defense against a com¬ 
bined Soviet and Hast German thrust 
through the Fulda Gap into the 
American-defended sector of West 
Germany. 

Tb win, the Soviet player must gain 
as many victory points as possible, 
while the NATO player must hold 
dow n the number of points given up. 
Points are aw arded to both players for 
enemy unit destruction and posses¬ 
sion of West German cities. Howev er, 
once a NATO city has been overrun, 
the NATO player can not regain vic¬ 
tory points for recapturing it. The 
Soviet player receives a substantial 
bonus for capturing the main US. Air¬ 
base at Frank fiirt. The NATO point 
total is subtracted from die Soviet total 
to arrive at the final score 

In the solitaire mode; the computer 
ably controls Soviet forces. Units are 
combined into combat groups that 
can lx* combined or split apart at the 
start of a turn. Orders are given and 
then all movements and combat arc 
simultaneously executed. 

1b win, airpower must be suc¬ 
cessfully integrated with ground 
troops. Adequate anti-aircraft defense 
is also necessary. Enemy combat 


groups arc displayed only if adjacent 
to a friendly combat group or sighted 
by friendly air rceon missions. Many 
times, my NATO forces were unpleas¬ 
antly surprised to find a few Soviet 
armor combat groups racing toward 
Frankfurt, well behind w hat seemed 
an adequate defense line! 

1 have one valuable suggestion. 
Before you play, go out and buy a 
good set of fine-point overhead pro¬ 
jection markers. These will prove in- 
dispcnslblc for marking the position 
of all units on the SSI plasticized 
data/map cud. It is next to impossible 
to competently play Reforger '88 
without an overview map in front of 
you. Many times, since the screen 
displays only a fraction of the entire 
scrolling map. a player may forget 
what one combat group was ordered 
to do on one sea ion of the map. 

Although Rcforger ’88 is a compli¬ 
cated game, its excitement is well 
worth the effort. I recommend this 
game to any advanced wargamer. But 
keep a cold drink available, you w'ill 
probably work up a sweat playing It. 

_ 0 

Antic 

DISK 

BONUS 

November 1985 

ROBOT 

DUNGEON 

A Deadly 
1,200-room Maze 

Only one way out . 
but it changes every time! 

ANTIC, The Atari Resource 
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ANSCHUETZ HIGH SCORE / GAME LISTER 


10 GRAPHICS O:SETCDLDR 2,0,O:POKE 82 f Q 
:POKE 53774,64:POKE 16,64:POKE 752.1 

15 DIM D$ C13 ,GAME$ C253 .A$ C253 ,NAMES C25 
J ,1 ARCADES C253 ,B$C253 ,HSt25) ,AA$C25eeQ] 
,TEMPSC253,HEHHIGHSC73,5C$C73 
±6 DIM DATASC403,HI5CORESC73,FAKESC73, 
HOLDSC7 J ,INISC33 , DEUSC143,1$ C33 
20 ? "IS ANSCHUETZ HIGH SCO RE/'GAME L 

ISTER":? :? :? :? " C13 RETRIEVE HIGH S 

CORE":? " C23 VIEW GAMES" 

30 ? "C3J ADD NEW GAME":? " C43 EDIT HI 
GH SCORE":? "C53 VIEW TREASURE CHESTS" 
:? "C6J DOS":? :? 

40 TRAP SO:? :INPUT C:IF C=± THEN TRAP 
40000:GOTO lOO 


45 

IF 

C 

= 2 

THEN 

TRAP 

40000 : 

: GOTO 

400 

50 

IF 

C 

= 3 

THEN 

TRAP 

40000 : 

: GOTO 

200 

60 

IF 

c 

= 4 

THEN 

TRAP 

40000 : 

: GOTO 

300 

70 

IF 

c 

= 5 

THEN 

TRAP 

40000 : 

: GOTO 

700 

80 

IF 

c 

= 6 

THEN 

TRAP 

40000 : 

: DOS 


90 

TRAP 

40000 : 

GOTO 

20 




lOO ? "IS":? "NAME OF GAME"; : INPUT GAME 

102 IF LEN CGAMES3 =25 THEN 105 

103 FOR Q = LEN CGAMES3 +1 TO 25:GAMESCQ,Q 

..NEHT O 

105 CLOSE ttl:OPEN ttl,4,O,"D:GAMSCORE.D 
AT" 

HO TRAP 150: INPUT ttl;AS:IF AS = GAMES T 

HEN 170 

120 GOTO HO 

ISO TRAP 40000:? :? GAMES:? "DOESN'T E 
HIST.":? "CHECK LISTING.":GOTO ISO 
170 INPUT ttl; HISCORES : INPUT ttl;INlS:? 

:? "THE HIGH SCORE OF":? GAMES:? "IS " 
;HISCORES;" BY ";INlS 

150 CLOSE ttl:? : ? : ? " PRESS rim 

m-TT1 FOR MAIN MENU" 

151 POKE 764,255 

152 IF PEEK C7643 =12 THEN POKE 764,255: 
GOTO 20 

153 GOTO 1S2 

200 ? "IS":? "ENTER NAME OF NEW GAME:": 

? "CUP TO 25 CHARACTERS3":? :INPUT NAM 

ES : CLOSE ttl 

203 IF LEN CNAMES3=25 THEN 210 

204 IF LEN CNAMES3>25 THEN 200 

205 FOR Q=LENCNAMES3+1 TO 25:NAMESCQ,Q 

..NEHT O 

210 OPEN ttl, S, O, "D ! GAMSCORE . DAT" : ? ttl; 
NAMES:? ttl; " 0000000 " : ? ttl; "AAA" 

220 CLOSE ttl:? : ? : ? " PRESS r=TWl 

ITY-m FOR MAIN MENU" 

225 POKE 764,255 

226 IF PEEK C7643 =12 THEN POKE 764,255: 
GOTO 20 

227 GOTO 226 

300 ? "IS":? "ENTER NAME OF GAME":? " CU 

P TO 25 CHARACTERS LONG3":? :INPUT ARC 

ADES 

301 ? :? "NEW HIGH SCORE CUP TO 7 DIGI 

TS3":? :INPUT NEWHIGHS:? :? "INITIALS 

CUP TO 3 LETTERS!":? :INPUT 1$ 

302 IF LEN CNEWHIGHS3 =0 OR LEN CARCADES3 
= 0 OR LEN CIS3 =0 THEN 300 

303 IF LEN CNEWHIGHS3 >7 OR LEN CARCADES3 
>25 OR LEHtlS3>3 THEN 300 

304 IF LEN CNEWHIGHS3 =7 THEN 310 

305 NH = LEN CNEWHIGHS3 :HOLDS = NEWHIGHS:FO 
R M=NH TO 6:LET NEWHIGHSCM—NH + 13 ="0":N 
EHT M 

306 LET NEWHIGHS CLEN CNEWHIGHS3 +13 =HDLD 
S 

310 IF LEN CARCADES3 =25 THEN 315 

311 FOR Q = LENCARCADES3 +1 TO 25:ARCADES 

CQ,Q3 =.NEHT Q 

315 IF LENClS3=3 THEN 31S 

316 FOR Q = LENCI$3+1 TO 3:lSCQ,Q3=.. 

EHT Q 

31S CLOSE ttl : OPEN ttl, 12, O, "D : GAMSCORE . 
DAT":TRAP 360 

320 INPUT ttl; BS : IF BS = ARCADES THEN 360 


:? ARCADES:? 


■DOES 


press rirai 


330 GOTO 320 
360 TRAP 40000:? : 'i 

N'T EHIT":GOTO 3SO 
360 ? ttl; NEWHIGHS : ? ttl;lS 

350 CLOSE ttl:? : ? : ? " 

M FOR MAIN MENU" 

351 POKE 764,255 

352 IF PEEK C7643 =12 THEN POKE 764,255: 
GOTO 20 

353 GOTO 3S2 

400 ? "IS":? "0LPHABETICAL OR":? "gEQUE 

NTIAL WITH HIGH SCORES OR":? "EAKE ALP 
HABETICAL LIST":? :INPUT DS 
410 IF DSO"A" AND DSO"S" AND DSO"M" 
THEN 400 

420 IF DS="M" THEN 500 
425 IF DS="A" THEN 800 
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430 ? "IS": CLOSE ttl : OPEN ttl , 4 , O , "D : G AMS 

CORE.DAT" 

440 POKE 201,1 : TRAP 450 : INPUT ttl;HS:? 
HS , : INPUT ttl; SCS : ? SCS, :INPUT ttl; INIS: 
? INIS:GOTO 440 

450 POKE 201,lO:TRAP 40000:? :? "THAT* 

S ALL FOLKS I I I" 

460 CLOSE ttl:? : ? : ? " press filWl 

m-m FOR MAIN MENU":? " OR PRESS 0 TO 
VIEW THE LIST AGAIN" 

470 POKE 764,255 

471 IF PEEK C7643 =12 THEN POKE 764,255: 
GOTO 20 

472 IF PEEK C7643 =40 THEN POKE 764,255: 
GOTO 430 

473 GOTO 471 

50O ? "IS" : SLEN = 25 : SLEN1 = 24 : ..AAS 

... C23 =AAS:OPEN ttl,4,0,"D: 

GAMSCORE.DAT" 

505 ? " PLEASE WAIT WHILE I READ IN G 

AMES ..." 

510 I=l:FOR J=1 TO lOOO:TRAP 550:INPUT 
ttl;TEMPS 

520 AAS Cl,I + SLEN13 =TEMPS:I = I + SLEN:INPU 

T ttl;FAKES:INPUT ttl;FAKES:NEHT J 

550 TRAP 40000:ENTRIES=J-1 

555 CLOSE ttl 

560 GOSUB lOOO 

565 TRAP 40000:? "IS":? "ENTER DEVISE T 
O LIST TO";:INPUT DEVS:IF DEVSC1,13="E 
" OR DEVS Cl,13= "S" THEN CLOSE ttl 

566 IF DEVS Cl,13="E" OR DEVS Cl,13="S" 
THEN OPEN ttl,8,O,DEVS:SETCOLOR 2,0,0:P 
OKE 53774,64:POKE 16,64 

567 IF DEVS Cl,13="E" OR DEVS Cl,13="S" 
THEN POKE 752,1*DEVSCl,13 = "E":GOTO 570 


568 TRAP 565:IF DEVS Cl,13="D" THEN CLO 
SE ttl:OPEN ttl,8,O,"D:OURGAMES.DAT":GOT 
O 570 

569 TRAP 565:CLOSE ttl:OPEN ttl,8,0,DEVS 


570 TRAP 40000:1=1:FOR K=1 TO ENTRIES: 
? ttl;"C";K;"3 ";AAS Cl,I + SLEN13 :I = I + SLE 

N:NEHT K:^ ttl 1 

580 ? ttl;"THAT'S ALL FOLKS!!!":IF DEVS 

Cl,13="S" THEN POKE 752,1 

590 CLOSE ttl:? : ? : ? " PRESS_[3M1 

m-TT1 FOR MAIN MENU":? " OR PRESS 0TO 
VIEW THE LIST AGAIN" 

593 POKE 764,255 

594 IF PEEK C7643 =12 THEN POKE 764,255: 

GOTO 20 

595 IF PEEK C7643 =40 THEN POKE 764,255: 

GOTO 565 

596 GOTO 594 

700 ? "IS" : CLOSE ttl:OPEN ttl, 4, O, "D : TCHE 

ST.DAT" 

730 TRAP 750:INPUT ttl;DATAS:? DATAS:GO 
TO 730 

750 ? :? "THAT'S ALL FOLKS!!!" 

755 CLOSE ttl:? : ? : ? " PRESS_[3M1 

ITY-m FOR MAIN MENU":? " OR PRESS 0TO 

VIEW THE LIST AGAIN" 

756 POKE 764,255 

757 IF PEEK C7643 =12 THEN POKE 764,255: 

GOTO 20 

758 IF PEEK C7643 =40 THEN POKE 764,255: 

GOTO 700 

759 GOTO 757 

800 ? "IS" : CLOSE ttl:OPEN ttl, 4, O, "D : DURG 

AMES.DAT" 

830 TRAP 855:INPUT ttl;DATAS:? DATAS:GO 
TO 830 

855 CLOSE ttl:? : ? : ? " PRESS_[3M1 

M FOR MAIN MENU":? " OR PRESS 0 TO 

VIEW THE LIST AGAIN" 

856 POKE 764,255 

857 IF PEEK C7643 =12 THEN POKE 764,255: 
GOTO 20 

858 IF PEEK C7643 =40 THEN POKE 764,255: 
GOTO 800 

859 GOTO 857 

lOOO RESTORE 1010:FOR 05=1568 TO 1693: 
READ A6:POKE A5,A6:NEHT A5 

lOlO DATA 104,104,133,217,104,133,216, 
104,133,209,104,133,208,169,O,133,218, 

133.207.162.1.165.216.133 

1020 DATA 214,165,217,133,215,24,165,2 

14.133.212.101.205.133.214.165.215.133 
,213,105,0,133,215,164,203 

1030 DATA 165,206,240,lO,177,214,209,2 
12,144,44,240,12,176,IS,177,214,209,21 
2,144,13,240,2,176,30 

1040 DATA 200,196,204,240,227,176,23,1 
44,223,169,1,133,218,164,205,136,177,2 
14,72,177,212,145,214,104 

1050 DATA 145,212,192,O,208,241,232,22 
4,0,208,2,230,207,228,208,208,172,165, 
209,197,207,208,166,165 


1060 DATA 218,201,O,208,144,96 

llOO ? :? :? " NOW WAIT WHILE I ALPHAB 

ETIZE THE LIST" 

1105 POKE 203,O:POKE 204,24:P0KE 205,2 

5:POKE 206,0:PP = USRC1568,ADR CAAS3 ,ENTR 
IES3 

1110 RETURN 



ALIEN ASSAULT 


lee GRAPHICS 1:SETCOLOR 2,0,O:POKE ±6, 
64:POKE 53774,64:DL = PEEK (5603 +256»PEEK 
(5613:POKE DL+14,23:POKE DL+18,2 
HO POKE 54276,4:SETCOLOR e,8,4:PDSITI 
OH 5,8:? « 6; 11 AL IEH ASSAUL T 11 : PO SITION 4 
,11:? tt6 : ■■[ ■tiTEE start H3 IHJiHil " 

120 POSITION 9,13:? 06;"ANSCHUETZ/HEIS 
GERBER/ANSCHUETZ" 

130 IF PEEK C532793 <>6 THEN 130 
140 GRAPHICS 1:POKE 559,0:PDKE 16,64:P 

OKE 53774,64:PM=12288:DP=10:SETCOLOR O 
,14,2:SETCOLOR 1,13,IB:SETCOLOR 2,12,6 


ISO POKE 755,O:FOR A=128QQ TO 12634:RE 

AD D:POKE A,D:NEKT A:DATA 112 

160 DATA 112,112,112,112,112,112,112,1 

12,112,112,112,112,69,O,58,66,35,51,69 
,0,58,66,35,51,2,2,2,2,66,0,0,2,2,2 
170 POKE 560,O:POKE 561,50:PDKE 12830, 

PEEK (6603 :POKE 12831,PEEK (6613 
ISO GOTO 450 

ISO ML=INT(RND(03*23+1:MH=INT(RND(03*7 
843 +120:MV = 10:05 = 0:NM=NM—1:IF NM<0 THE 
N POKE 77,O:GOTO 410 

20O IF MH<(PE+203#4 THEN POKE 656,0:PD 

KE 657,181? "WEST" 

210 IF MH>(PE+203»4 THEN POKE 656,0:PD 

KE 657,18:? "EAST" 

220 POKE PLY+ML,MY:MY=MY+2+(MIAD*0.253 

: IF MV J-130 THEN POKE PLH + ML , O : GOTO 350 

230 IF STICK(03 =7 THEN PE=PE+2*(PE<216 

3 

240 IF STICK (03 =11 THEN PE=PE~2*(PE>OJ 


250 IF STICK(03 =14 THEN CHY = CHV-(CHV>4 
0 3 *4:POKE PLV,CHV 

260 IF STICK (03 =13 THEN CHY=CHV+(CHV<1 
2 8 3 *4:POKE PLV,CHV 

270 IF STRIG(03 = 0 THEN POKE 53278,O:PO 
KE PLV+3,CHV+1:POKE PLH+3,124:EA=EA—1: 
POKE 656,1:POKE 657,7:GOTO 300 
280 POKE 12814,PE/2:POKE 12820,PE 
280 5MH=MH-PE*4+40+OS:05=05+(ML=13*-2+ 

(ML=23*2:POKE PLH+ML,(5MH>483*(SMH<202 
3*SMH+(MIAD*D.253:GOTO 220 

30O ? ..SOUND O,IDO,ID,8:SOUND O, 

102,10,8:SOUND O,105,ID,8:SOUND 0,110, 
10,8:SOUND 0,O,O,0 

310 IF PEEK (532603 THEN SOUND O,20O,2, 
10:FOR H=0 TO 20:NEHT H:SOUND 0,O,0,O: 
POKE PLH+ML,O:5C=5C+100 

320 POKE PLH+3,O:POKE PLV+3,250:POKE 6 
56,1:POKE 657,18:? SC;:IF PEEK(532603 
THEN 180 

330 IF EA <1 THEN 760 
340 GOTO 280 

350 HP = INT((MH + OS3/4"0.53 +256*58:IF PE 
EK(HP3 =13 THEN POKE HP,26:SOUND 0,255, 
10,ID:FOR H=1 TO 25:NEHT H 

360 IF PEEK (HP3 =26 THEN SOUND 0,O,0,O: 
GOTO ISO 

370 IF PEEK (HP3 =11 THEN POKE HP,14:PDK 

E HP+i,15:MSL=MSL+1:GOTO 380 

380 IF PEEK(HP3 =12 THEN POKE HP,15:PDK 

E HP-1,14:MSL=MSL+1 

380 IF M5L> OP THEN 760 

40O POKE 656,1:POKE 657,31:? M5L;:SOUN 
D 0,150,4,10:FOR K=1 TO SO:NEHT H:SOUN 
D 0,0,0,0:GOTO 180 

410 FDR LN=1 TO 3:SOUND LN,O,O,O:NEKT 
LN:GH=GH+1:MIAD=MIAD+1:PE=108:NM=MIAD* 
5 + 10:OP = OP-0.5:IF NM> 40 THEN NM=4D 
42D IF GH>15 THEN GH=D 

430 SC=SC+(NS-MSL3*10:POKE 656,1:POKE 
657,18:? SC;:EA=5D:MSL=0:FDR JW=1 TO 3 
DO:NEHT JW:POKE 558,O 

440 POKE 656,1:POKE 657,7:? "50":POKE 

656,1:POKE 657,31:? "O":GOTO 580 

450 RESTORE 630:FOR 1=1536 TO 1706:REA 
D AlPOKE I,A:NEKT I:FOR 1=1774 TO 1787 
:POKE I,O:NEKT I 

460 FOR I=PM+1023 TO PM+2D47:POKE 1,0: 
NEHT I:FDR I=PM+1025 TO PM+1031:READ A 
:POKE I,A:NEKT I 

470 FOR I=PM+1281 TO PM+1296:READ A:PO 
KE I,A:NEKT I:FOR I=PM+1783 TO PM+1787 
:READ A:POKE I,A:NEHT I 

480 FOR I=PM+1537 TO PM+1552:READ A:PO 
KE I,A:NEKT I:FOR I=PM+1788 TO PM+1882 
:POKE I,8:NEKT I 

480 POKE 704,132:POKE 705,70:P0KE 706, 

70:POKE 707,12:PLH=53248:PLV=17BO:PLL= 
1784:POKE 623,1 

500 POKE 1788,PM/256+4:POKE 53277,2:PO 
KE 54278,PM/256:Q=USR(16863:POKE PLL,7 
:POKE PLL+1,16:POKE PLL+2,16 
510 POKE PLL+3,20O:POKE 53257,2:POKE 5 
3258,2:POKE 53258,2 

520 POKE PLK,124:POKE PLV,BO:CHV=BO:PO 


KE PLV+3,221 

530 PE=108:EA=50:NM=10:CH=PM:FOR 1=0 T 

O 511:PDKE CH + I,PEEK (57344 + 13 :NEHT I 
540 FOR H=8 TO 127:READ A:POKE CH+H,A: 
NEHT H:FOR K=2D8 TO 215:READ A:POKE CH 
+H,A:NEHT K:POKE 756,CH/256:H=14848 
550 POKE K,INT(RND(03*23+1:H=H+1:PN=IN 
T(RND(03*53+1:FOR H=H TO H+PN:POKE H,I 
NT(RND(03*63+5:NEKT H 

560 POKE K,INT(RND(03*23+3:IF H<14885 
THEN H=H+1:GOTO 550 


570 

0 

POKE 

656,1:POKE 
0" 

657,7:? 

"50 

580 

POKE 

656,2:POKE 

657,5:? 

"ENERGY 


SCORE DESTROVED" 

580 FOR H = 15104 TO 15358:IF INT (RND (D3 
*53+1=1 THEN POKE H,11:H=H+1:POKE H,12 
:NS=NS+1:NEKT K:GOTO 610 
60O POKE H,13:NEHT H 

610 POKE 12814,54:POKE 1282D,IDS:POKE 
558,62:SOUND 1,188,4,3:SOUND 2,200,1,4 
:SDUND 3,201,2,3 

62D SETCOLOR 4,GH*2,8*(GH<>03:GOTO 180 

63D DATA 162,3,188,244,6,240,88,56,221 

,240,6,240,83,141,254,6,106,141,255,6, 

142,253,6,24,168,0,108,253,6,24,108 

64D DATA 252,6,133,204,133,206,188,240 

,6,133,203,173,254,6,133,205,188,248,6 

,170,232,46,255,6,144,16,168,177 

65D DATA 203,145,205,168,0,145,203,136 

,202,208,244,76,87,6,160,0,177,203,145 

,205,168,0,145,203,200,202,208,244 

66D DATA 174,253,6,173,254,6,157,240,6 

,188,236,6,240,48,133,203,24,138,141,2 

53,6,108,235,6,133,204,24,173,253 

67D DATA 6,108,252,6,133,206,188,240,6 

,133,205,188,248,6,170,160,0,177,203,1 

45,205,200,202,208,248,174,253,6,168 

68D DATA 0,157,236,6,202,48,3,76,2,6,7 

6,88,228,0,0,104,168,7,162,6,160,0,32, 

82,228,86 

68D DATA 28,8,65,88,65,8,28,24,24,24,2 
4,28,28,63,63,63,63,120,120,224,224,18 
2,182,34,20,8,28,34 

70O DATA 24,24,24,24,56,56,252,252,252 
,252,30,30,7,7,3,3 

710 DATA 0,0,0,0,1,5,23,127,0,0,1,5,5, 
61,63,255,0,0,0,0,64,80,208,255,0,0,0, 

64.80.112.245.255 

720 DATA 0,2,5,85,87,127,255,255,160,1 
68,88,85,85,223,255,255,0,128,164,85,8 

3.127.255.255 

73D DATA 0,0,160,148,85,85,253,255,32, 
164,84,85,87,127,255,255,2,10,137,85,2 

23.255.255.255 

740 DATA 255,245,212,80,84,213,251,238 
,255,85,87,23,85,111,187,254,255,255,2 

55.255.255.255.255.255 

750 DATA 255,255,255,255,208,68,208,24 

5.255.255.255.127.31.71.31.255.255.255 
,255,255,115,68,81,247 

760 FDR RA=0 TO 3:POKE PLH+RA,O:SOUND 
RA,O,O,O:NEKT RA:GRAPHICS 17:POKE 16,6 

4:POKE 53774,64 _ 

770 POSITION 5,10:? tt6 : JB " : POS 

ITION 4,13:? tt6; "sc ore : ";5C:GOTO 77D 
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ALIEN ASSAULT - 2017 


50 REM ERIC AHSCHUETZ - FIXED HARD COD 
ED MEMORY LOCATIONS THAT CONFLICTED HI 
TH DOS AND PREVENTED RUNNING 7^1S^17 
60 REM EEA ANYHHERE IN THE CODE THAT R 
EFERENCES THE VARIABLE "BASE" IS NEH C 
ODE THAT REPLACED SPECIFIC MEM LOCS 
lOO GRAPHICS 1:SETCOLOR 2,O,0:POKE ±6, 
64:POKE 53774,64:DL = PEEK C56Q3 +256»PEEK 
C5613:POKE DL+14,23:POKE DL+18,2 
IIO POKE 54276,4:SETCOLOR Q,8,4:POSITI 
ON 5,S:? « 6; 11 AL IEN ASSAUL T 11 : PO SITION 4 
start H3 IHJiHil " 

120 POSITION 9,13:? 06;"ANSCHUETZ/HEIS 
GERBER/ANSCHUETZ" 

130 IF PEEK C532793 <>6 THEN 130 

132 GRAPHICS 1:POKE 106,PEEK (1063 —16:R 

EM EEA MODIFY RAMTOP TO SAFELY STORE P 

M, CHAR SET, AND DISPLAY LIST 

135 BASE = PEEK (1061 :PM=BASE*256:REM STO 

RE GRAPHICS AT TOP, NOT IN THE MIDDLE 

OF DOS! 

140 GRAPHICS 1:POKE 559,0:PDKE 16,64:P 

OKE 53774,64:0P=10:SETCOLOR Q,14,2:SET 
COLOR 1,13,lO:SETCOLOR 2,12,6 
150 POKE 755,O:FOR A =CBASE+2J*256 TO C 
BASE+2J»256+34:READ D:POKE A,D:NEXT A: 
DATA 112 

160 DATA 112,112,112,112,112,112,112,1 
12,112,112,112,112,69,0,0,66,35,0,69,0 
,0,66,35,0,2,2,2,2,66,0,0,2,2,2 
162 REM EEA DISPLAY LIST ABOVE USED TO 
HAVE HARDCODED MEMORY LOCATIONS TO JU 
MP TO. MODIFY MSB AFTER DL LOADED 
165 POKE CBASE+23#256+15,BASE+IO:POKE 
(BASE+2)*256+18,BASE+3:POKE £BASE+2)»2 
56+21,BASE+11 

167 POKE CBASE+23*256+24,BASE+3 
170 POKE 560,O:POKE 561,BASE+2:POKE CB 
ASE + 23 *2 5 6 + 30,PEEK C6603 :POKE CBASE + 23* 
256 + 31,PEEK C6613 
ISO GOTO 450 

ISO ML=INT CRNDC03*23 +1:MX=INT CRNDCQ3*7 
643+120:MY=10:0S=0:NM=NM-1:IF NM<0 THE 
N POKE 77,O:GOTO 410 

200 IF MX<CPE+203*4 THEN POKE 656,0:P0 
KE 657,181? "WEST" 

210 IF MX>CPE+203*4 THEN POKE 656,0:P0 
KE 657,18:? "EAST" 

220 POKE PLY+ML,MY:MY=MY+2+CMIAD*0.253 
: IF MY J-130 THEN POKE PLX + ML , O : GOTO 350 

230 IF STICK C03 =7 THEN PE=PE+2*CPE<216 
3 

240 IF STICK C03 =11 THEN PE=PE~2*CPE>03 


250 IF STICK C03 =14 THEN CHY = CHY—CCHY>4 
0 3 *4:POKE PLY,CHY 

260 IF STICK C03 =13 THEN CHY=CHY+CCHY<1 

2 8 3 *4:POKE PLY,CHY 

270 IF STRIG C03 =0 THEN POKE 53278,O:PO 
KE PLY+3,CHY+1:POKE PLX+3,124:EA=EA—1: 
POKE 656,1:POKE 657,7:GOTO 388 
280 POKE CBASE + 23 *256 + 14,PE/2:POKE CBA 
SE+23*256+20,PE 

290 SMX = MX-PE*4 + 40 + 0S:05=05+ CML = 13*-2 + 
CML=23*2:POKE PLX+ML,CSMX>483*CSMX<202 
3*SMX+CMIAD*0.253:GOTO 228 

300 ? ..SOUND O,lOO,lO,8:SOUND O, 

102,lO,8:SOUND O,105,lO,8:SOUND 0,110, 
lO,8:SOUND 0,0,0,0 

310 IF PEEK C532603 THEN SOUND 0,200,2, 
10:FOR X=0 TO 20:NEXT X:SOUND 0,0,0,0: 
POKE PLX+ML,O:SC=SC+100 

320 POKE PLX+3,O:POKE PLY+3,250:P8KE 6 
56,1:POKE 657,18:? SC;:IF PEEKC532603 
THEN ISO 

330 IF EA <1 THEN 768 
340 GOTO 280 

350 HP=INT C CMX + OS3 ^4-Q.53 +256*CBASE + 11 

3 :IF PEEK CHP3 =13 THEN POKE HP,26:SOUND 
O,255,lO,lO:FOR X = 1 TO 25:NEXT X 

360 IF PEEK CHP3 =26 THEN SOUND 0,0,0,0: 
GOTO ISO 

370 IF PEEK CHP3 =11 THEN POKE HP,14:POK 

E HP+1,15:MSL=MSL+1:GOTO 3SO 

380 IF PEEK CHP3 =12 THEN POKE HP,15:POK 

E HP-1,14:MSL=MSL+1 

3SO IF MSL> OP THEN 768 

400 POKE 656,1:POKE 657,31:? MSL;:SOUN 
D O,ISO,4,lO:FOR X=1 TO 50:NEXT X:SOUN 
d e,e,e,e:GOTO iso 

410 FOR LN=1 TO 3:SOUND LN,O,O,O:NEXT 
LN:GH=GH+1:MIAD=MIAD+1:PE=108:NM=MIAD* 
5 + 10:OP = 0P —0.5:IF NM> 40 THEN NM=4Q 
420 IF GH>15 THEN GH=0 

430 SC=SC+CNS-MSL3*10:POKE 656,1:POKE 
657,18:? SC;:EA=50:MSL=0:FOR JH=1 TO 3 
OO:NEXT JH:POKE 55S,O 

440 POKE 656,1:POKE 657,7:? "SO":POKE 
656,1:POKE 657,31:? "O":GOTO 5SO 


450 RESTORE 630:FOR 1=1536 TO 1706:REA 
D A:POKE I,A:NEXT I:FOR 1=1774 TO 1787 
:POKE I,O:NEXT I 

460 FOR I=PM+1023 TO PM+2Q47:POKE 1,0: 
NEXT I:FOR I=PM+1025 TO PM+1031:READ A 
:POKE I,A:NEXT I 

470 FOR I=PM+1281 TO PM+12S6:READ A:PO 
KE I,A:NEXT I:FOR I=PM+17S3 TO PM+17S7 
:READ A:POKE I,A:NEXT I 

480 FOR I=PM+1537 TO PM+1552:READ A:PO 
KE I,A:NEXT I:FOR I=PM+17SS TO PM+1SS2 
:POKE I,8:NEXT I 

4SO POKE 704,132:POKE 7Q5,7Q:POKE 706, 
70:POKE 707,12:PLX=53248:PLY=17BO:PLL= 
1784:POKE 623,1 

50O POKE 1788,PM/256+4:POKE 53277,2:PO 
KE 5427S,PM/256:Q = USR C16S63 :POKE PLL,7 
:POKE PLL+1,16:POKE PLL+2,16 
510 POKE PLL+3,200:POKE 53257,2:POKE 5 
7 1 PriKF 7 

520 POKE PLX,124:POKE PLY,80:CHY=80:PD 
KE PLY+3,221 

530 PE=108:EA=50:NM=10:CH=PM:FOR 1=0 T 

O 511:POKE CH+I,PEEKC57344+I3:NEXT I 
540 FOR X=8 TO 127:READ A:POKE CH+X,A: 
NEXT X:FOR X=208 TO 215:READ A:POKE CH 
+X,A:NEXT X:POKE 756,CH/256 
545 X=CBASE+103*256 

550 POKE X,INTCRNDC03*23+1:X=X+1:PN=IN 
TCRNDC03*53+1:FOR X=X TO X+PN:POKE X,I 
NTCRNDC03*63+5:NEXT X 

560 POKE X,INTCRNDC03*23+3:IF X<CCBASE 
+103*256+1473 THEN X=X+1:GOTO 558 
570 POKE 656,1:POKE 657,7:? "SO 
O O" 

580 POKE 656,2:POKE 657,5:? "ENERGY 
SCORE DESTROYED" 

5SO FOR X=CBASE+113*256 TO CBASE+113*2 
56+255 

5S5 IF INTCRNDC03*53+1=1 THEN POKE X,1 
1:X=X+1:POKE X,12:NS=NS+1:NEXT X:GOTO 
610 

600 POKE X,13:NEXT X 

610 POKE CBASE+23*256+14,54:POKE CBASE 
+23*256+20,lOS:POKE 55S,62 

615 SOUND 1,1SS,4,3:SOUND 2,200,1,4:50 
UND 3,201,2,3 

620 SETCOLOR 4,GH*2,8*CGH<>03:GOTO ISO 

630 DATA 162,3,189,244,6,248,89,56,221 
,240,6,240,83,141,254,6,106,141,255,6, 
142,253,6,24,16S,O,lOS,253,6,24,lOS 
640 DATA 252,6,133,204,133,206,18S,240 
,6,133,203,173,254,6,133,205,18S,248,6 
,170,232,46,255,6,144,16,168,177 
650 DATA 203,145,205,16S,O,145,203,136 
,202,208,244,76,87,6,160,O,177,203,145 
,205,16S,O,145,203,200,202,208,244 
660 DATA 174,253,6,173,254,6,157,240,6 
,18S,236,6,240,48,133,203,24,138,141,2 
53,6,lOS,235,6,133,204,24,173,253 
670 DATA 6,lOS,252,6,133,206,18S,240,6 
,133,205,18S,248,6,170,160,O,177,203,1 
45,205,200,202,208,248,174,253,6,16S 
680 DATA 0,157,236,6,202,48,3,76,2,6,7 
6,98,228,8,8,104,16S,7,162,6,160,0,32, 
S2,228,S6 

6SO DATA 28,8,65,SS,65,8,28,24,24,24,2 
4,28,28,63,63,63,63,120,120,224,224,IS 
2,1S2,34,20,8,28,34 

700 DATA 24,24,24,24,56,56,252,252,252 
,252,30,30,7,7,3,3 

710 DATA 0,0,0,0,1,5,23,127,0,0,1,5,5, 
61,63,255,0,0,0,0,64,80,208,255,0,0,0, 

64.80.112.245.255 

720 DATA 0,2,5,85,87,127,255,255,160,1 
68,88,85,85,223,255,255,0,128,164,85,S 

3.127.255.255 

730 DATA O,O,160,14S,85,85,253,255,32, 
164,84,85,87,127,255,255,2,10,137,85,2 

740 Z DATA 5 255?245,212,80,84,213,251,23S 
,255,S5,87,23,S5,111,187,254,255,255,2 

55.255.255.255.255.255 

750 DATA 255,255,255,255,20S,68,20S,24 

5.255.255.255.127.31.71.31.255.255.255 
,255,255,115,6S,81,247 

760 FOR RA=0 TO 3:POKE PLX+RA,O:SOUND 
RA,O,O,O:NEXT RA:GRAPHICS 17:POKE 16,6 

4:POKE 53774,64 _ 

770 POSITION 5,10:? 116 : : POS 

ITION 4,13:? 116; "sc ore : ";SC:GOTO 770 
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EMU TRACK MEET DATABASE 


15 ? "IS" : POKE 752 f 1 : 5ETCOLOR 2 f O f Q:PDK 

E 82,O:POKE 16,64:POKE 53774,64 

Bi? » r 

MrtTM MFM 7T1— 


tTS 

:H I I 1 ■ || | 


1 : P 


105 FOR Y = 2 TO IS : POSITION Q,Y: ? "M" : 

Q5XTXOH 38^, V :?^ "lit" : HEHT V:? 

H O POSITION 2,4:? "I. LAJ-UJ!N! 1 4 

IJ >T:1 f :T 1 : POSITION 5,5:? "US 

115 POSITION 2,6:? "2. l4mif>T:W:1 5 

2 -“' 


117 POSITION S , 12 : _ 

120 POSITION 11,16:? "MOKE SELECTION O 
R" : POSITION 9,17:? "HIT GJ FOR DESCRIPT 
IONS":POKE 559,34 


130 

CLOSE 

ttl 

: OPEN 

ttl, 4 

, 0, 

"K : " 

: GET 

ttl, K 

: IF 

K = 6 8 

THEN 200 






133 

TRAP 

155 







135 

IF K = 

49 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

START 

NEU 

. BAS" 








136 

IF K = 

50 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

EVENT 

DAT 

. BAS" 








137 

IF K = 

51 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

AFFDA 

TA . 

BAS" 








138 

IF K = 

52 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

PARTD 

ATA 

. BAS" 








139 

IF K = 

53 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

CHEAT 

EHT 

. BAS" 








140 

IF K = 

54 

THEN 

CLOSE 

ttl 

: RUN 

"D : 

RESUL 

TS . 

BAS" 








150 

GOTO 

130 







155 

CLOSE 

ttl 

: OPEN 

ttl, 4 

, 0, 

"K : " 



160 

TRAP 

40000 : ? 

"IS" : POSITION 

2,8 

: ? "Q 

□ 


INSERT PROGRAM DISK" 

. ? ii 



AND 

HIT RETURN 

" : POKE 

764, 

255 


165 IF PEEK£7643<>12 THEN 165 
170 ? ">S" : GOTO 10O 

20O TRAP 40000 : POKE 559,O:? "IS" 

210 GOSUB 300 : POSITION 10,3:? " UW=1:*T1 

H5»l:r=T»i«imTi " : POSITION 4,5:? "ENTER G 
ENERAL DATA FOR NEU MEET" 

211 POSITION 6,6:? "REVISE DATA ON EHI 
STING MEET":POSITION 12,13:? "PRESS □ 
FOR NEHT":GOSUB 500:POKE 559,34:GOSUB 
400 

215 POKE 559,0:? "IS" : GOSUB 300 : POSITIO 

N 15,3:? ■ ' 14114: km f:T ■ : POSITION 11,5:? 

"ENTER/REVISE EVENTS" 

216 POSITION 11,6:? "PRINT OR LIST EVE 
NT":POSITION 12,13:? "PRESS □ FOR NEHT 


218 GOSUB 500:POKE 559,34:GOSUB 400 

220 POKE 559,0:? "IS" : GOSUB 300 : POSITIO 
N 12,3:? " ftl *<!!:■ : POSITION 8 
,5:? "ENTER/REVISE AFFILIATIONS" 

221 POSITION 10,6:? "DISPLAV AFFILIATI 
ONS":POSITION 11,7:? "PRINT AFFILIATIO 
NS":POSITION 12,13:? "PRESS □ FOR NEHT 
":GOSUB 500 

222 POKE 559,34:GOSUB 400 

225 POKE 559,0:? "IS" : GOSUB 300 : POSITIO 
N 12,3:? " IJillliliUJillfTiWil " : POSITION 1 
0,5:? "ENTER/REVISE ENTRANTS" 

226 POSITION 11,6:? "LIST/PRINT ENTRAN 
TS":POSITION 12,13:? "PRESS □ FOR NEHT 
":GOSUB 500:POKE 559,34:GOSUB 400 

230 POKE 559,0:? "IS" : GOSUB 300 : POSITIO 
N 13,3:? 

231 POSITION 11,5:? "SEEDING OF ENTRAN 
TS":POSITION 12,6:? "PRINT HEAT SHEETS 


232 POSITION 12,13:? "PRESS □ FOR NEHT 
":GOSUB 500:POKE 559,34:GOSUB 400 

235 POKE 559,0:? "IS" : GOSUB 300 : POSITIO 

N 17,3:? " l:l4Hl|«=1 " : POSITION 10,5:? "EN 

TER/REVISE RESULTS" 

236 POSITION 14,6:? "PRINT RESULTS":PO 
SITION 10,7:? "CROSS COUNTRY RESULTS": 
POSITION 12,13 

237 ? "PRESS □ FOR NEHT":GOSUB SOO:POK 
E 559,34:GOSUB 400:GOTO 200 

. 


300 POSITION 0,0: 


DESCRIPTIONS 


301 FOR Y = 2 TO 19:POSITION P,Y: ? "M" 

QSITIQH 39, V ; ^ ■■■■+■■ : liFHT v : ^ 




JtL 


NEHT Y: 


: P 


1 : RET 


URN 

400 GET ttl, K : IF K <> 78 AND K<>77 THEN 4 
00 

401 IF K=78 THEN RETURN 

402 POP : ? "IS" : GOTO 10O 

SOO POSITION 12,14:? "PRESS E FOR MAIN 
":RETURN 
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EMU TRACK MEET DATABASE - AFFILIATIONS 


10 DIM Af C253 , B$C203 , Cl$C203 , C2$C203 ,C 
3f C203 ,PH$C153 ,CN$C203 , K$C23 , T$C13 , G5t 
253 , G1SC203 , G25C153 :FLAG = G 

15 DIM D5$153 , 501$CG3 , 502$CG3 , 503$CG3 , 

5P$C3S3 , G3$153 , G4f C63 .SPf =..C3S3 = 

...23=5P$ 

2G POSITION O j O : FOR K = 1 TO 23:? ll Q ll j:N 
EKT K 

5G POKE 752,1:? M H M :5ETCOLOH 2,0,O:POS 
ITION O,O:POKE 82,O:POKE 16,64:PDKE 53 

774,64:THAP 40000 

76 POSITION 0,8:? M INSERT THE D 

ATA DISKETTE" : ? 11 HIT I =1 ^ J11 =171 TO 

CONTINUE 11 ; : OPEN til, 4, O, "K : " : GET ttl , H 

77 TRAP 80 : CLOSE ttl : OPEN «2,4 , O , "D : TRA 

CK.BAS":? :CLOSE «2:GOTO 76 

80 ? "IS" : TRAP 40000 : POSITION 0,11:? "H 

IT 0 TO EDIT/UIEH EXISTING AFFILIATION 
":? " HIT □ TO ODD NEW AFFILIATION 

■ I 


HIT H TO LIST/"PRINT AFFILI ATI 


WHICH 

: IF Tf="E" THEN ? : ? 11 

DESIRED AFFILIATION 


*■ 
CO 
: INP 


81 ? 1 
ONS" 

84 TRAP 80:? 

; : INPUT Tf : 

DE NUMBER OF 
UT M 

85 TRAP 40000 : IF TfO"E" AND TfO"N" A 
ND T$<> M L M THEN ? M tt":GOTO 84 

86 TRAP 80 : IF T$ = M L" THEN CLOSE ttl : OPE 
N ttl, 4, O, "D : AFFIL . DAT 11 : ? "IS" : GOTO 700 

87 TRAP 80: IF T$ = M E" THEN CLOSE ttl : OPE 
N ttl , 4 , O , "D : AFFIL . DAT" : CNO = G : FOR H = 1 T 
O M : GOSUB SOB : NEXT H : CLOSE ttl : GOTO 99 
89 TRAP Si: CLOSE ttl : OPEN ttl , 4,8, "D : AFF 
IL.DAT" 

50 TRAP S2:CNO=G:FOR K=1 TO lOOO:GOSUB 
50G:NEXT K 

51 TRAP 40000: CLOSE ttl : OPEN ttl,8,0,"D: 
AFFIL . DAT" : FLAG = 1 : CLOSE ttl : GOTO 8S 

52 TRAP 40000: CLOSE ttl : CNO = CNO + l : Af = "" 

: Bf =.. ... ... ... ... 

=.. ... ... ... . . 

SS ? M ^ M :TRAP 40000:? " AFFIL 

IATION tt"; CNO; : ? :? : POKE 201,3 

100 ? " 1. NAME 11 , A$ : ? ■■ 2. ACRONYM", ,B 
5:? ■■ 3. ADDRESS L.1",C1$:? " 4. ADDRE 
SS L.2",C2$:? " 5. ADDRESS L.3",C3$ 

1G5 ? " 6. ZIP CODE", , D5$ : ? ■■ 7. PHONE 
tt", ,PH$:? 11 8. CONTACT NAME 11 ,CN$:? " 
S. SCORE:",,,SC1$:? "10. SCORE:",,,SC2 

HO ? "11. SCORE : 11 , , , SC3$ 

125 TRAP SS : ? : ? 11 HIT E3 TO ENTE 

R ALL ITEMS 11 : ? 11 ENTER NUMBER TO EDI 

T SINGLE ITEM 1 
130 ? 11 HIT 


HIT 


g TO SAGE DATA ON DIS 
FOR MAIN MENU 1 


"IS" 

135 IF K$= 

137 IF K$= 

138 A L L = O 
140 IF Kf = 
AFFILIATION 
ISO IF Kf = 


WHICH 1 


:INPUT Kf:? 


AFFILIATION ACRONYM 11 : INPUT B$ 


160 IF Kf = 


1ST LINE OF ADDRESS 11 : INPUT Cl$ 


170 

2ND 

180 

3RD 


IF Kf = 


LINE OF ADDRESS 11 : INPUT C2$ 


IF Kf = 


ISO IF Kf = 


ZIP CODE":INPUT D5$ 


20G IF K$= 
PHONE NUMBER 
2G2 IF K$= 
CONTACT 1 S 
2G5 IF K$= 


SCORE l":INPUT SC1$ 


21G IF 
SCORE 


Kf = 


215 IF Kf = 


THEN CLOSE ttl : GOTO lOOO 
1 THEN ALL=1:GOTO 140 


1" OR 
NAME 1 
2" OR 


ALL THEN ? 
1 :INPUT A$ 
ALL THEN 


OR ALL THEN 


OR ALL THEN 


OR ALL THEN 


LINE OF ADDRESS 11 : INPUT C3$ 


OR ALL THEN 


OR ALL THEN 
:INPUT PH$ 

8 11 OR ALL THEN 
NAME 11 : INPUT CN$ 
S 11 OR ALL THEN 


lO 1 


OR ALL THEN 


2":INPUT SC2$ 


11 " 


SCORE 3":INPUT 5C3$ 
IF Kf = 


OR ALL THEN 


■ENTER 


225 IF K$="S" THEN 300 
25G ? "IS":GOTO SS 

300 ? 11 ARE YOU SURE THE ENTRIES ARE C 
ORRECT";:INPUT K$:IF K$<>"Y M AND K$<>" 
YES" THEN SS 

301 IF Tf="N" AND FLAG THEN CLOSE ttl : O 
PEN ttl, 8, O, "D : AFFIL . DAT" : FLAG = Q : GOTO 3 
06 

302 IF Tf="N" AND NOT FLAG THEN CLOSE 
ttl : OPEN ttl, S, O, "D : AFFIL . DAT" : GOTO 306 


303 IF Tf="E" AND M=1 THEN CLOSE ttl : OP 
EN ttl, 12, O, "D : AFFIL . DAT" : GOTO 306 

305 CLOSE ttl : OPEN ttl, 12, O, "D : AFFIL . DAT 
":FOR H = 1 TO M-l:GOSUB 520:NEXT K 

306 IF LEN C Af 3=25 THEN 308 


307 FOR Y=LENCAf3+l TO .... 

NEXT Y 

308 IF LEN CB$3 =20 THEN 310 

30S FOR Y = LENtB$)+l TO ... 

NEXT Y 

310 IF LEN CC1$3=20 THEN 312 

311 FOR Y=LENtCl$)+l TO 2Q:Cl$tY,Y3=" 

":NEXT Y 

312 IF LEN CC2$3=20 THEN 314 

313 FOR Y = LEN CC2$J+1 TO 20:C2$CY,Y5= " 

":NEXT Y 

314 IF LEN CC3$3=20 THEN 316 

315 FOR Y = LEN CC3f J+1 TO 20:C3$CY,Y5= " 

":NEXT Y 

316 IF LEN CPH$3=15 THEN 318 

317 FOR Y = LEN CPHf J+1 TO 15:PH$tY,Y3=" 

":NEXT Y 

318 IF LEN CCN$1=20 THEN 320 

31S FOR Y = LEN tCN$3+1 TO 20:CN$CY,Y5 =" 

":NEXT Y 

320 IF LENCD5f3=5 THEN 322 

321 FOR Y = LENtD5$)+l TO 5 : D5$ tY, Y3 =" ■■ 

:NEXT Y 

322 IF LEN tSCl$3=6 THEN 324 

323 FOR Y = LEN t5Cl$3+1 TO 6:SC1$tY,Y5=" 
":NEXT Y 

324 IF LEN tSC2$3=6 THEN 326 

325 FOR Y = LEN tSC2$3+1 TO 6:SC2$tY,Y5=" 
":NEXT Y 

326 IF LENt5C3$)=6 THEN 330 

327 FOR Y = LEN tSC3$3+1 TO 6:SC3$tY,Y5=" 
":NEXT Y 

330 PRINT ttl ; A$ : PRINT ttl ; B$ : PRINT ttl J C 

1$:PHINT ttl; C2$ : PRINT ttl; C3$ : PRINT ttl; 

D5$ : PRINT ttl ; PH$ : PRINT ttl ; CN$ 

331 PRINT ttl; self : PRINT ttl ; 5C2$ : PRINT 
ttl; 5C3$ : CLOSE ttl: GOTO 80 

500 INPUT ttl; A$ : INPUT ttl; Bf: INPUT ttl; C 
1$:INPUT ttl; C2f : INPUT ttl; C3$ : INPUT ttl; 
D5$ : INPUT ttl; PHf : INPUT ttl; CN$ 

515 INPUT ttl; self : INPUT ttl ; 5C2f : INPUT 
ttl; SC3f : CNO = CNO + l : RETURN 

520 INPUT ttl; Gf : INPUT ttl; Gif : INPUT ttl; 

Gif: INPUT ttl; Gif : INPUT ttl; Gif : INPUT ttl 

;G3f:INPUT ttl; G2f : INPUT ttl; Gif 
525 INPUT ttl; G4f : INPUT ttl ; G4f : INPUT ttl 
;G4f:RETURN 

700 CLOSE ttl:OPEN ttl, 4, O, "D : AFFIL . DAT" 


701 ? ■■IS 11 : CNO = 0 : ? ■■ AFFILIATIONS 

AVE. SCORE":? " - 


70S POSITION 0,13:? " - 

-":? :? " HIT 0 T 

O DISPLAY AFFILIATIONS" 

710 ? " HIT Q TO PRINT LIST OF AFFILI 

ATIONS":? "HIT H TO PRINT ALL INFO. ON 
AFFILIATIONS"; 

715 ? " HIT FOR MAIN MENU 

":? " WHICH";:INPUT Kf 

720 IF Kf = "" THEN CLOSE ttl : GOTO 1888 

725 IF Kf="P" THEN 2888 

726 IF Kf="A" THEN 3888 

730 IF Kf<>"D" THEN ? "6":GOTO 788 

750 ? " INPUT □ FOR NEXT 18 AFFILIAT 

IONS":? " INPUT 0 TO QUIT" 

760 ? " WHICH";:INPUT Kf 

: IF Kf = "Q" THEN CLOSE ttl:? "IS" : GOTO 78 

O 

761 POSITION O,3:FOR K = 1 TO 18:? SPf; : 
IF X <18 THEN ? 

762 NEXT H 

765 TRAP 780:POSITION 0,3:F0R H=1 TO 1 

O:GOSUB 500:? CNO;". ";A$;" ";INTCCUAL 
tSClf)+UAL tSC2f)+UAL tSC3f)3/3J ; :IF H<1 
O THEN ? 

766 NEXT H:POSITION 21,22:? .POSITI 

ON O,22:GOTO 760 

780 POSITION lO,IS:? " 

":? " ALL AFFILIATIONS DISPLAY 

ED ":? " HIT TO CONTI 

HUE": CLOSE ttl 

785 ? "H" I OPEN ttl, 4, O, "K : " : GET ttl, X: CL 

OSE ttl:? "15": GOTO 700 

1000 ? "IS" : POSITION 0,11:? " INSE 

RT THE PROGRAM DISKETTE ":? " 

HIT WHEN READY" : CLOSE tt2 

1010 OPEN «2,4, O, "K : " : GET tt2 , X : TRAP lO 
20 : CLOSE ttl:OPEN ttl, 4, O, "D : TRACK . BAS" : 
CLOSE ttl : CLOSE tt2 : RUN "D : TRACK . BAS" 
1020 TRAP 40000: CLOSE ttl:? "Ha" : GOTO 1 
OOO 

2000 TRAP 2100:LPRINT :LPRINT :LPRINT 
:LPRINT " AFFILIATIONS AUE. S 

CORE":LPRINT " - 

-I I 

2010 CLOSE ttl:OPEN ttl , 4 , O , "D : AFFIL . D AT 

■ I 

2015 TRAP 2100 : CLOSE S3 : OPEN tt3,8,0,"P 
ARKS" 
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2020 ? ■■ INPUT □ FOR NEHT 10 flFFILIfl 
TI0NS":? 11 INPUT H TO QUIT" 

2025 ? " WHICH";:INPUT K 

5: IF K5="Q" THEN CLOSE ttl:? "IS" : GOTO 7 
00 

2030 TRAP 2040:FOR H=1 TO lO:GOSUB 500 
:? tt3;CNO;". "jflSj" ";INTtCOAL t5Cl$3+U 
AL C5C2S3 +UAL C5C3S))/33 

2031 NEHT H:POSITION 21,22:? .POSIT 

ION O,22:GOTO 2025 

204O POSITION lO,IS:? " 

":? " ALL AFFILIATIONS DISPLA 

VED ":? " HIT TO CONT 

INUE": CLOSE ttl 

2050 ? "H" : OPEN ttl, 4,0, "K : " : GET ttl, H : C 

LOSE ttl:? "IS": GOTO 700 

2100 TRAP 4000O:? " RETURN P 

RINTER ON":FOR ZZ = 1 TO 250:NEHT ZZ:? " 
IS": GOTO 70O 

3000 TRAP 70O:? "ISENTER AFFILIATION tt" 
;:INPUT M 

3001 CLOSE ttl:OPEN ttl , 4 , O , "D : AFFIL . D AT 
"IFOR H=1 TO M:GOSUB SOO:NEHT H:CLOSE 
ttl: POKE 201,3 

3009 TRAP 2100:LPRINT :LPRINT :LPRINT 

: LPRINT " AFFILIATION tt";M;:L 

PDTMT ■IPPTNT 

3010 LPRINT " 1. NAME"," ",AS:LPRINT " 
2. ACRONYM",,:LPRINT " 3. ADDRESS L 

.1",CIS:LPRINT " 4. ADDRESS L.2".C2$ 

3015 LPRINT " 5. ADDRESS L.3",C3S 
302O LPRINT " 6. ZIP CODE",,D5S:LPRINT 
" 7. PHONE tt", , PHS : LPRINT " S. CONTAC 

T NAME",CN$:LPRINT " S. SCORE:",,,SC1$ 

303O LPRINT "10. SCORE:",,,SC25:LPRINT 
"11. SCORE:",,,SC35 
304O ? "IS": GOTO 70O 
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EMU TRACK MEET DATABASE - CREATE HEAT 


ID DIM K$C1) J NflME$tlG00),H$t25).IHFOtZ 
OO , 43 , HEAT C12jS3 , LN C2,8 3 ,IN0LN(2 J 0) ,H$ 
C83 

12 FDR H = 1 TO G:READ V:LN Cl f H3=V:READ 
V:LH C2jH3=V:NEKT K 

14 FDR H = 1 TD 8:IHVLNCljLN(ljKJ3 =K:INV 
LNt2 J LNt2.K))=K:NEKT H 

15 DIM 5PSC39) : ..... 

C23 =5P$ 

2G POSITION 0,0:FOR H = 1 TO 23:? :N 

EHT K 

5G POKE 752,1:? M ^ M :SETC0L0R 2,0,0:P0S 
ITION O,O:POKE 02,O:POKE 16,64:POKE 53 

774,G4:TRAP 40000 

76 POSITION 0,0:? 11 INSERT THE D 

ATA DISKETTE" : ? 11 HIT l:l^lU:i:i TO 

CONTINUE 11 ; : OPEN ttl,4,O,"K:":GET ttl , H 


77 TRAP GO : CLOSE ttl : OPEN tt2,4 , O , "D : TRA 
CK.BAS"!? "HS^ 11 : CLOSE tt2 : GOTO 76 
GO ? M ^ M :STRAP 40000:? " 



G5 ? 


? ■ ? ■ ? ■ ? ■ ? ■ ? ■ ? ■ ■_ 


SO ? : ? : ? 11 ENTER NUMBER TO SEED 

AN EUENT" : ? 11 HIT FOR M 

AIN MENU 11 

95 ? 11 WHICH"; : INPUT K 

$ : IF KS = "" THEN GOTO lOOO 

lOO OPEN ttl, 4, O, "D : PART . DAT" : PO = l : PNO = 
O:PD1=1:FOR H = 1 TO 12:FOR XX = 1 TO 6:HE 
ATCK,KH1=0:NEKT HH:NEHT H 
IDS POSITION 0,14:? " EHIin " : ? 11 

NUMBER OF LANES";:INPUT LANES:IF L 
ANES <> 6 AND LANESOG THEN 105 
107 U= CLANES = G3 +2#CLANES = 63 :? " + 

....SEEDING IN PROGRESS. 

HO TRAP 125:FOR Z=1 TO lOOO:GOSUB 500 
|IF INIT THEN NAMESCPO,PO+LENCNS3-13=N 

112 IF INIT THEN FOR ZZ=PO+LENCNS3 TO 

PO + 2D:NAMESCZZ,ZZ3 ..NEHT ZZ:PO=PO+2 

O 

115 IF INIT THEN INFOCPOl,03=PO1*20-19 
:INFO CPOl,13 = PNO:INFO CPOl ,23 = AF:INFO CP 
Ol,33 =GR:INFO CPOl,43 =MARK:P01 = P01 + 1 
120 NEKT Z 

125 TRAP 40000 : CLOSE ttl : FOR X = P01 TO 2 
OO:INFO CH,13 =0:NEHT K:NHEAT = INTttPOl-l 
3/LANES+O.993 

130 FOR M=P01-1 TO 2 STEP -1:SPOT=Q:BI 
G=0:FOR MM=1 TO M 

135 IF INFOCMM,43>BIG THEN BIG=INFOCMM 
,43:SPOT=MM:FOR X = 0 TO 4:INFOC200,X3=1 
NFO CMM,K3 :NEKT K 

140 NEKT MM: IF SPOTOO THEN FOR X = Q TO 
4:INFO CSPOT,K3 =INFO CM,K3 :INFO CM,K3 = IN 
FOC200,K3:NEKT K 
145 NEKT M 

ISO FOR H=1 TO LANES:IF K/2=INTCK/23 T 
HEN 175 

155 FOR HH=1 TO NHEAT:IF INFOCCH—1J*NH 
EAT + KK, 13 ■£> O THEN HE AT CKK , K3 = CH-1J *NHE 
AT + KK 

160 NEKT KK:NEKT K:GOTO 200 

175 FOR KK=NHEAT TO 1 STEP -1:IF INFOC 

CK-13*NHEAT+CNHEAT-KK3+1,13 OO THEN HE 

AT CKK,K3 = CK-13*NHEAT+CNHEAT —HH3+1 

1GO NEKT KK:NEKT K:GOTO 200 

200 POSITION 0,14:? " CIIIIIX1 " : ? 11 

HIT □ TO VIEW NEKT HEAT":? " H 

IT H TO VIEW PREVIOUS HEAT" 

205 ? " HIT Q TO PRINT ALL HEATS BV 

LANE tt ":? " HIT 0 TO SWAP PARTICIPANT 

S 1 A 1 AND 1 B 1 " 

210 ? " HIT l:I^IU:i:i FOR MAIN MEN 

U":? " WHICH";:INPUT K 

$:IF K$="" THEN GOTO lOOO 

215 IF KS="+" THEN IC=1:GOTO 400 

22G IF K$ = "-" THEN IC = -1I GOTO 400 

225 IF K$="S" THEN 300 

23G IF K$<>"P" THEN 200 

235 POSITION 0,14:? " CIIIIIX? " : ? " 

SET UP PRINTER "I? " HI 

T WHEN READY" 

237 OPEN ttl, 4, G, "K : " I GET ttl, H: CLOSE ttl 
: TRAP 2GO:OPEN ttl,6,O,"Pi" 

24G FOR H = 1 TO NHEAT:? ttl I? ttl:FOR H = 1 

TO 35:? ttl;" ";:NEKT K:? ttl;"HEAT tt"; 

H:? ttl;" PARTICIPENT"," LANE"," AFF 

IL", 

242 ? ttl;" GRADE","ENTERING MARK"I FOR 

H=1 TO 66:? ttl;NEHT HI? ttl 
245 FOR K = 1 TO LANES I IF HEATCH,INULNCU 
,K33<>0 THEN GOTO 250 
247 NEKT K:GOTO 260 

25G ? ttl;INFO CHEATCH,INULNCU,H33,13 ;" 

■ ■■ 


252 ? ttl;NAMESCINFOCHEATCH,INULNCU,K33 
,03 ,INFO CHEAT CH,INULN CU,K3 3 ,D3+1S3 ;" " 

;:? ttl;K, :? ttl;INFO CHEATCH,INULNCU,K33 
, 23 , 

255 ? ttl;INFO CHEATCH,INULNCU,K3 3,33 ,:? 

ttl;INFO CHEAT CH,INULN CU,K3 3,43 :NEKT H: 
GOTO 260 

260 ? ttl:? ttl:NEKT H:CLOSE ttl:GOTO 200 

2GO TRAP 40000:CLOSE ttl:GOTO 200 
300 POSITION 0,14:? "EXXXXXX3": ? 11 

PARTICIPANT A 1 S NUMBER";:INPUT K1:? 

" PARTICIPANT B 1 5 NUMBER";:INPUT 

K2 

305 FOUND=0:FOR K=1 TO POl:IF INFOCH,l 

3 =K1 THEN FOR V = D TO 4:INFOC2DO,V3=INF 
O CK,Y3 :NEKT Y:ANO = K:FOUND = l 
307 NEKT K 

310 FOR K=1 TO POl:IF INFOCK,13=K2 AND 
FOUND THEN FOR V = D TO 4:INFO CANO,Y3=1 
NFO CK,Y3 :INFOCK,V3=INFOC2DO,V3 :NEKT V: 
GOTO 320 
315 NEKT K 

320 POP :IC=D:GOTO 400 

400 IF HNO+IC>NHEAT OR HNO+IC<l THEN 2 

OO 

405 HNO=HNO+IC:POSITION 21,0:? HNO;" " 

:FOR K=1 TO LANES:IF HEATCHNO,K3<>O TH 
EN GOTO 409 

407 POSITION O,H+2:? " 

";:NEKT K:GOTO 

200 

409 POSITION G,K + 2:? INFO CHEATCHNO,K3 , 
13 ; " " 

410 POSITION 2,K+2:? NAMESCINFOCHEATCH 
NO,K3,03 ,INFO CHEAT CHNO,K3,03 +183 :POSIT 
ION 23,K + 2:? INFO CHEATCHNO,K3,43 ;" 

415 POSITION 31,K + 2:? INFO CHEATCHNO,K3 
..POSITION 36,K + 2:? LN CU,K3 :NEHT 

K:GOTO 200 

500 INIT=0:INPUT ttl;NS:INPUT ttl;HS:AF= 
UALCHS3:INPUT ttl;HS:GR=UALCHS3:INPUT tt 
l; HS 

505 FOR K = 1 TO 6:INPUT ttl;HS:IF UAL CHS 
3=UALCKS3 THEN INIT=1:HERE=K 
510 NEKT K 

515 FOR K=1 TO 6:INPUT ttl:HS:IF INIT A 
ND K=HERE THEN MARK=UALCHS3 
520 NEKT K:PNO=PNO+l:RETURN 
lOOO ? "15" : POSITION 9,10!? "INSERT PRO 
GRAM DISKETTE":? " HIT l:l^lU:i:i 

WHEN READY":CLOSE ttl 
1005 OPEN ttl,4,G,"K:":GET ttl,K:CLOSE tt 
1 

1010 TRAP 1020:OPEN ttl,4,O,"D:TRACK.BA 
S":CLOSE ttl:RUN "D:TRACK.BAS" 

1020 TRAP 40000:CLOSE ttl:? "HS":GOTO 1 
ODD 

5000 DATA 4,4,5,5,6,3,3,6,2,2,7,1,1,O, 
S, O 
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EMU TRACK MEET DATABASE - EVENTS 


1G DIM AS(25),BS(3),CS(3),DS(3),ES(25) 
,F$ti0) f 5$tZ53 ,15(255 ,KS(2) , TS ( 

±5 ,G$(255 ,Gl$ (35 ,GZ$ (±05 :FLAG=G 
±5 DIM J$(1S5 ,N$(35 f 5P$(3?5 f G3$(55 f G4$ 

(65 :SPS =...5PS(2)=SPS 

20 POSITION 0j O:FDR H = 1 TO 23:? "□"JIN 
EKT K 

SO POKE 752,1:? "IS" : SETCOLOR 2,G,G:POS 
ITION G,G:POKE 82,O:POKE 16,64:POKE 53 

774,64:TRAP 40000 

76 POSITION 0,8:? " INSERT THE D 

OTA DISKETTE":? " HIT lil^Uhn TO 

CONTINUE";:OPEN ttl,4,O,"K:":GET ttl,H 

77 TRAP 80:CLOSE ttl:OPEN tt2,4,O,"D:TRA 

CK.BAS":? :CLOSE tt2:GOTO 76 

SO ? "IS" : TRAP 40000 : POSITION 0,11:? " 

HIT [1 TO EDIT/UIEH EXISTING EUENT" : ? 
" HIT □ TO ADD NEW EVENT" 

81 ? " HIT H TO LIST/"PRINT EVENTS 

I I 

84 TRAP 80:? " WHICH 4- 

4-"; : INPUT TS : IF TS="E" THEN ? :? " CO 

DE NUMBER OF DESIRED EVENT";:INPUT M 

85 TRAP 40000 : IF TSO"E" AND TSO"N" A 

ND TSO"L" THEN ? "++":GOTO 84 

86 TRAP 8G:IF TS="L" THEN CLOSE ttl:OPE 

N ttl, 4, O, "D : EVENT . DAT" : ? "IS" : GOTO 7GO 

87 TRAP 8G:IF TS="E" THEN CLOSE ttl:OPE 

N ttl,4,O,"D:EVENT.DAT":CNO=G:FOR H=1 T 
O M:GOSUB 500:NEXT K:CLOSE ttl:GOTO 33 
33 TRAP SI:CLOSE ttl:OPEN ttl,4,O,"D:EVE 
NT.DAT" 

50 TRAP S2:CNO=G:FOR H=1 TO 1GGG:GOSUB 
500:NEXT H 

51 TRAP 40000:CLOSE ttl:OPEN ttl,8,G,"D: 
EVENT.DAT":FLAG=1:CLOSE ttl:GOTO 8S 

52 TRAP 40000:CLOSE ttl:CNO=CNO+l:AS = "" 

: .CS =.. ... ..FS =.SS =.. 

. ... ... 5 ..NS = "" 

SS ? "IS" : TRAP 4000G:? " EVENT 

tt";CNO;:? :? :POKE 2G1,3 

lOO ? " 1. EVENT",AS:? " 2. MEASUREMEN 
T TVPE",,BS:? " 3. SEEDING CODE",,,,CS 
:? " 4. DIVISION",,,,,DS 

102 ? " 5. PRELIM:";" ";ES:? " 6. TIME 
OF PRELIMS",,,FS:? " 7. SEMI:";" "; 
SS 

105 ? " 8. TIME OF SEMIS",,,HS:? " S. 

FINAL:";" ";IS:? "lO. TIME OF FINALS" 
,,,JS:? "11. NUMBER TO FORCE HEATS",NS 


NEXT V 


308 

IF 

LEN(BS3=3 THEN 

310 






305 

FOR 

Y = LEN(BS) +1 

TO 

3:BS(Y, 

Y) = 

■ i 

1 ■ ■ 

N 

EKT 

Y 









310 

IF 

LEN(CS3=3 THEN 

312 






311 

FOR 

Y = LEN(CS) +1 

TO 

3:CS(Y, 

Y) = 

■ i 

1 ■ ■ 

N 

EKT 

Y 









312 

IF 

LEN(DS3=3 THEN 

314 






313 

FOR 

Y = LEN(DS) +1 

TO 

3:DS(Y, 

Y) = 

■ i 

1 ■ ■ 

N 

EKT 

Y 









314 

IF 

LEN(ES) =25 THEN 

316 






315 

FOR 

Y = LEN(ES) +1 

TO 

25 : ES 

(Y 

, Y) 

— 

II II 


NEKT 

Y 









316 

IF 

LEN(FS) =10 THEN 

318 






317 

FOR 

Y = LEN (FS) +1 

TO 

lO : FS 

(Y 

, Y) 

— 

II II 


NEKT 

Y 









318 

IF 

LEN(SS) =25 THEN 

320 






315 

FOR 

Y = LEN(SS) +1 

TO 

25 : SS 

(Y 

, Y) 

— 

II II 


NEKT 

Y 









320 

IF 

LEN(HS) =10 THEN 

322 






321 

FOR 

Y = LEN(HS) +1 

TO 

lO : HS 

(Y 

, Y) 

— 

II II 


NEKT 

Y 









322 

IF 

LEN(IS)=25 THEN 

324 






323 

FOR 

Y = LEN (IS)+1 

TO 

25 : IS 

(Y 

, Y) 

— 

II II 


NEKT 

Y 









324 

IF 

LEN(JS)=10 THEN 

326 






325 

FOR 

Y=LEN(JS)+1 

TO 

lO : JS 

(Y 

, Y) 

= 

II II 


NEKT 

Y 









326 

IF 

LEN(NS)=3 THEN 

330 






327 

FOR 

Y=LEN(NS)+1 

TO 

3:NS(Y, 

Y) = 

■ i 

1 1 ■ 

N 


EXT V 

330 PRINT ttl:AS:PRINT ttl;BS:PRINT ttl;C 
S:PRINT ttl:DS:PRINT ttl:ES:PRINT ttljFS: 
PRINT ttl;SS:PRINT ttl;HS 

331 PRINT ttl;IS:PRINT ttl;JS:PRINT ttl;N 
S:CLOSE ttl:GOTO 80 

500 INPUT ttl:AS:INPUT ttl;BS:INPUT ttl;C 
S:INPUT ttl:DS:INPUT ttl:ES:INPUT ttljFS: 
INPUT ttl;SS:INPUT ttl;HS 

515 INPUT ttl;IS:INPUT ttl;JS:INPUT ttl;N 
S:CNO=CNO+l:RETURN 

520 INPUT ttl;GS:INPUT ttl;GlS:INPUT ttl; 
GlS:INPUT ttl;GlS:INPUT ttl;GS:INPUT ttl; 
G2S:INPUT ttl;GS:INPUT ttl;G2S 
525 INPUT ttl;GS:INPUT ttl;G2$:INPUT ttl; 
GlS:RETURN 

700 CLOSE ttl:OPEN ttl,4,O,"D:EVENT.DAT" 

701 ? "IS":CN0 = 0:? " EVENTS TI 

ME OF FINALS ":? " - 


HIT 0 TO ENTE 
ENTER NUMBER TO EDI 


125 TRAP 33 :? :? 

R ALL ITEMS":? " 

T SINGLE ITEM" 

130 ? " HIT 0 TO SAVE DATA ON DIS 

K":? " hit rn for main menu" 

:? " WHICH";:INPUT KS:? 

"H" 

135 IF KS = "" THEN CLOSE ttl:GOTO lOOO 

137 IF KS="A" THEN ALL=1:GOTO 14G 

138 A L L = O 

140 IF KS="1" OR ALL THEN ? :? "ENTER 

EVENT NAME":INPUT AS 

ISO IF KS="2" OR ALL THEN ? :? "ENTER 

MEASUREMENT TYPE":INPUT BS 
160 IF KS="3" OR ALL THEN ? :? "ENTER 

SEEDING CODE":INPUT CS 

170 IF KS="4" OR ALL THEN ? :? "ENTER 

DIVISION":INPUT DS 

ISO IF KS="5" OR ALL THEN ? :? "ENTER 

DAY OF PRELIMS":INPUT ES 

ISO IF KS="6" OR ALL THEN ? :? "ENTER 

TIME OF PRELIMS":INPUT FS 

200 IF KS="7" OR ALL THEN ? :? "ENTER 

DAY OF SEMIS":INPUT SS 

202 IF KS="8" OR ALL THEN ? :? "ENTER 

TIME OF SEMIS":INPUT HS 

205 IF KS="S" OR ALL THEN ? :? "ENTER 

DAY OF FINALS":INPUT IS 

210 IF KS="1G" OR ALL THEN ? :? "ENTER 

TIME OF FINALS":INPUT JS 
215 IF KS="11" OR ALL THEN ? :? "ENTER 

NUMBER TO FORCE HEATS":INPUT NS 
225 IF KS="S" THEN 3GO 
250 ? "IS" : GOTO 33 

300 ? " ARE YOU SURE THE ENTRIES ARE C 

ORRECT"; : INPUT KS : IF KSO"Y" AND KSO" 
YES" THEN 33 

301 IF TS = "N" AND FLAG THEN CLOSE ttl :O 
PEN ttl,8,G,"D:EVENT.DAT":FLAG=G:GOTO 3 
06 

302 IF TS="N" AND NOT FLAG THEN CLOSE 
ttl:OPEN ttl,S,G,"D:EVENT.DAT":GOTO 3G6 

303 IF TS="E" AND M=1 THEN CLOSE ttl :OP 
EN ttl,12,G,"D:EVENT.DAT":GOTO 3G6 

305 CLOSE ttl:OPEN ttl,12,O,"D:EVENT.DAT 
"IFOR H=1 TO M — 1:GOSUB 520:NEXT H 

306 IF LEN (AS5 =25 THEN 3G8 

307 FOR Y = LEN(AS5+1 TO .... 


70S POSITION G,13:? 


H ll i -7 i -7 ■■ 


HIT 


HIT^TO PRINT LIST OF EVE 


0 TO DISPLAY EVENTS 1 
710 ? .. — -- 

NTS":? " HIT 0 TO PRINT ALL INFO. ON 
EVENTS"; 

715 ? " HIT FOR MAIN 

MENU":? " WHICH";:INPUT 

KS 

720 IF KS="" THEN CLOSE ttl:GOTO lOOO 

725 IF KS="P" THEN 2000 

726 IF KS="A" THEN 3000 

730 IF KSO"D" THEN ? "IS" : GOTO 700 
750 ? " INPUT □ FOR NEXT lO EVEN 

TS":? " INPUT 0 TO OUIT" 

760 ? " WHICH";:INPUT KS 

: IF KS = "0" THEN CLOSE ttl:? "IS" : GOTO 70 

e 

761 POSITION O,3:FOR H=1 TO lO:? SPS;: 
IF H<10 THEN ? 

762 NEXT H 

765 TRAP 780:POSITION G,3:FOR H=1 TO 1 
O:GOSUB 500:? CNO;".";AS;" ";JS;:IF H< 
lO THEN ? 

766 NEXT X:POSITION 21,22:? .POSITI 

ON O,22:GOTO 760 

780 POSITION lO,IS:? " 

":? " ALL EVENTS DISPLAYED 

":? " HIT l:l^NU:i:i TO CONTIN 

UE":CLOSE ttl 

785 ? "H 11 S OPEN ttl, 4, O, "K : " : GET ttl,X:CL 

OSE ttl:? "IS": GOTO 700 

1000 ? "IS" : POSITION 0,11:? " INSE 

RT THE PROGRAM DISKETTE ":? " 

HIT WHEN READY" : CLOSE tt2 

lOlO OPEN tt2,4,O,"K:":GET tt2,X:TRAP lO 
20:CLOSE ttl:OPEN ttl,4,O,"D:TRACK.BAS": 
CLOSE ttl:CLOSE tt2:RUN "D:TRACK.BAS" 
1020 TRAP 40000 : CLOSE ttl:? "H3 11 ! GOTO 1 

ooo 

2000 TRAP 2100:LPRINT :LPRINT :LPRINT 
:LPRINT " EVENTS TIME OF 

FINALS":LPRINT " - 


2010 CLOSE ttl:OPEN ttl,4,O,"D:EVENT.DAT 

I I 

2015 TRAP 2100:CLOSE tt3:OPEN tt3,8,0,"P 
ARKS" 

2020 ? " INPUT □ FOR NEXT lO EVE 
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NTS":? 11 INPUT E3 TO QUIT" 

2025 ? " WHICH";:INPUT K 

S:IF KS="Q" THEN CLOSE ttl:? "IS" : GOTO 7 
OO 

2030 TRAP 2040:FOR K=I TO lO:GOSUB 500 

:? tt3;CNO;". ";JS 

2031 NEKT K:POSITION 21,22:? POSIT 

ION O ,22:GOTO 2025 

2040 POSITION lO,IS:? " 

":? " ALL EVENTS DISPLAVE 

D ":? " HIT TO CONTI 

HUE":CLOSE ttl 

2050 ? "Q":OPEN ttl,4,O,"K:":GET ttl,K:C 

LOSE ttl:? "IS": GOTO 700 

2100 TRAP 40000:? " RETURN P 

RINTER ON":FOR ZZ = 1 TO 250:NEKT ZZ:? " 

IS":G0T0 700 

3000 TRAP 700:? "ISENTER EVENT tt";:INPU 
T M 

3001 CLOSE ttl:OPEN ttl,4,O,"D:EVENT.DAT 
":FOR H=1 TO M:GOSUB 500:NEKT K:CLOSE 
ttl :POKE 201,3 

3G09 TRAP 2100:LPRINT :LPRINT :LPRINT 
:LPRINT " EVENT tt";M;:LPRINT 

:LPRINT 

3010 LPRINT " 1. EVENT",AS:LPRINT " 2. 

MEASUREMENT TYPE",,BS:LPRINT " 3. SEE 

DING CODE",,,,CS:LPRINT " 4. DIVISION" 

,,,,,DS 

3020 LPRINT " 5. DAV OF PRELIMS",,,ES: 

LPRINT " 6. TIME OF PRELIMS",,,FS:LPRI 

NT " 7. DAV OF SEMIS",,,,SS 

3025 LPRINT " B. TIME OF SEMIS",,,H$:L 

PRINT " S. DAV OF FINALS",,,1$:LPRINT 
"lO. TIME OF FINALS",,,JS 

3027 LPRINT "11. NUMBER TO FORCE HEATS 

11 N S 

3040 ? "H":GOTO 700 
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EMU TRACK MEET DATABASE - PARTICIPANTS 


5 DIM G C63 ,KSCl) ,ASC173 ,TSC13 ,CSCIO! ,O 
S C83 .RStl) f N$C173 f 5PSt39) f NC63 ,EM(6) , H 
SC83,HlStS3 

IS . ... C3S3 =.. 

20 POSITION Oj O : FDR H = 1 TO 23:? 

N. H":P = 1 

SO POKE 752,1:? "IS" : SETCOLOR 2,0,0:P0S 
ITION 0,0:P0KE 82,O:POKE 16,64:PDKE 53 

774,64:TRAP 40000 

76 POSITION 0,8:? " INSERT THE D 

ATA DISKETTE":? " HIT TO 

CONTINUE"; : OPEN ttl , 4 , O , "K : " : GET ttl , H 

77 TRAP 80:CLOSE ttl:OPEN tt2,4,0,"D:TRA 
CK.BAS":? "[aSlS" : CLOSE tt2 : GOTO 76 

SO TRAP 40000:? "IS" : POSITION 0,11:? "H 
IT S TO EDIT/UIEH EXISTING PARTICIPANT 
S+":? " HIT □ TO ADD NEH PARTICIPA 

NT" 

81 ? " HIT H TO LIST/PRINT PARTICIPA 

NTS" 

84 TRAP SO:? " WHICH 4- 

4-"; : INPUT TS : IF TS="E" THEN ? :? "ENTE 

R PARTICIPANT NUMBER"::INPUT M 

85 IF TSO"E" AND TS<>"N" AND TSO"L" 
THEN ? "tt":GOTO 84 

86 TRAP 80:IF TS="L" THEN CLOSE ttl:OPE 

N ttl, 4, O, "D : PART . DAT" : ? "IS" : GOTO SOO 

56 IF M=1 AND TS="E" THEN CLOSE tt2:OPE 
N tt2,12,O,"D:PART.DAT":GOSUB 7000:GOTO 

SS 

57 IF TS="E" THEN CLOSE tt2:OPEN tt2,12, 

O, "D:PART.DAT":FOR L=1 TO M:GDSUB 7000 
:NEXT L 

58 TRAP 10000:IF TS = "N" THEN CLOSE tt2 : 

OPEN tt2,S,O,"D:PART.DAT":GOSUB 10500 

99 TRAP 40000:? "IS" : IF TS = "E" THEN ? " 

ENTRANT tt";M 

100 ? "1. ENTRANT NAME",AS:? "2. AFFIL 

IATION tt",B:? "3. SCHOOL GRADE",G:? "4 

. EVENT tt",C 

105 ? "5. EVENTS ENTERED",:FOR 0=1 TO 

6:? GC03;" ";:NEXT O:? 

HO ? : ? " ENTERING MARKS" : FOR 0 = 1 T 

O 6 : IF GC03O0 THEN ? " EVENT tt";GCO 
3,EMCD3:NEXT O 
115 POP 

180 TRAP 95:? :? :? " HIT 0 TO E 

NTER ALL ITEMS":? " ENTER NUMBER TO 
EDIT SINGLE ITEM 11 


ISO 
K 1 


HIT 

HIT 


3 TO H 

ElWIil 


SAVE DATA ON DIS 
] FOR MAIN MENU" 
WHICH";:INPUT KS:? 


200 IF KS = "" THEN CLOSE tt2:GOTO lOOO 
203 IF KS="5" THEN 700 

205 IF KS="A" THEN ALL=1:TRAP 99:GDTD 
210 

206 ALL=0:TRAP 99 


210 

IF 

KS = "1" 

OR 

ALL 

THEN 

7 

: ? 


ENTER 

ENTRANT 

NAME": 

INPUT 

AS 





220 

IF 

KS = "2" 

OR 

ALL 

THEN 

7 

: ? 


ENTER 

AFFILIATION tt" 

:INPUT 

B 





230 

IF 

KS = "3" 

OR 

ALL 

THEN 

7 

: ? 


ENTER 

SCHOOL 

GRADE" : 

INPUT 

G 





235 

IF 

KS = "4" 

OR 

ALL 

THEN 

7 

: ? 


ENTER 

EVENT tt 

" : INPUT 

C 







250 

IF 

KS = "5" 

OR 

ALL 

THEN 

7 

: ? 


ENTER 


EVENTS ENTERED":? "ENTER ONE LINE AT A 
TIME AND BY EVENT tt":REM ASK WHAT EVE 
NTS 

255 IF KS="5" OR ALL THEN GOSUB 5000 
260 ? "IS" : GOTO lOO 

500 CLOSE tt2:OPEN tt2,4,O,"D:PART.DAT" 

501 ? "IS":CN0 = 0:? " PARTICIPANT 

EVENTS ENTERED":? " - 


502 POSITION 0,13:? " - 

-":? :? " HIT 0 T 

O DISPLAY PARTICIPANTS" 

504 ? " HIT Q TO PRINT LIST OF PARTIC 

IPANTS":? "HIT 0 TO PRINT ALL INFO. ON 

PARTICIPANTS"; 

505 ? " HIT FOR MAIN MENU 

":? " WHICH";:INPUT KS 

506 IF KS = "" THEN CLOSE tt2:GOTO lOOO 

507 IF KS="P" THEN 2000 
SOS IF KS="A" THEN 3000 

SOS IF KSO"D" THEN ? "IS" : GOTO SOO 
510 CLOSE tt2:OPEN tt2,4,O,"D:PART.DAT" 
512 ? " INPUT □ FOR NEXT lO PARTICIP 

ANTS":? " INPUT 0 TO QUIT" 

514 ? " WHICH";:INPUT KS 

: IF KS="Q" THEN CLOSE tt2 : ? "IS" : GOTO SO 
O 

515 POSITION 0,3:FOR K = 1 TO lO:? SPS; : 
IF X <10 THEN ? 

517 NEXT H 

520 TRAP 522:POSITION 0,3:F0R K=1 TO 1 

O:GOSUB 70OO:? CNO;". ";AS;" ";:FOR Y= 

1 TO 6:? G CYJ ;" "; :NEXT Y:IF H <10 THEN 


521 NEXT H:POSITION 21,22:? .POSITI 

ON O,22:GOTO 514 

522 POSITION lO,IS:? " 

":? " ALL PARTICIPANTS DISPL 

AYED ":? " HIT TO CON 

TINUE" 

525 ? "H":CLOSE ttl:OPEN ttl,4,O,"K:":GE 

T ttl, H: CLOSE ttl:? "IS" : GOTO 500 

700 ? "IS":? "ARE YOU SURE OF CORRECT E 

NTRIES";:INPUT RS 

701 IF RSO"Y" THEN SS 

702 IF TS = "E" AND MOl THEN CLOSE tt2 : O 
PEN tt2,12,O,"D:PART.DAT":FOR ML=1 TO M 
-l:GOSUB 8000:NEXT ML:GOTO 710 

703 IF TS="E" THEN CLOSE tt2:OPEN tt2,12 
,O,"D:PART.DAT" 

706 IF LENCAS3=17 THEN 710 

707 FOR L=LENCAS3+1 TO ... 

NEXT L 

710 ? tt2;AS 

711 HlS = 5TR$CB3 :GOSUB SOOO:H$CS—LEN CHI 
S3,83=HlS:? tt2;H$ 

712 HlS = 5TR$CG3 :GOSUB SOOO:H$CS —LEN CHI 
S3,83=HlS:? tt2;H$ 

713 HiS = 5TR$CC3 :GOSUB SOOO:H$CS —LEN CHI 
$3,83 =H1$:? tt2;HS 

715 FOR 0=1 TO 6:H1$=STR$CGCD33:GOSUB 
9000:H$t9-LENtHl$),83 =HlS:? tt2;HS:NEXT 
O 

717 FOR 0=1 TO 6:Hl5=STRSCEMCD33:GOSUB 
SOOO:HSCS-LEN CH1S3,83 =HiS:? tt2;H$:NEH 
T O 

720 CLOSE tt2:GOTO 80 

lOOO ? "IS" : POSITION 0,11:? " INSE 

RT THE PROGRAM DISKETTE ":? " 

HIT l:l^lll:n WHEN READY" : CLOSE tt2 
1010 OPEN tt2,4,O,"K:":GET tt2,H:TRAP lO 
20:OPEN ttl,4,O,"D:TRACK.BAS":CLOSE ttl: 
CLOSE tt2:RUN "D:TRACK.BAS" 

1020 TRAP 40000 : CLOSE ttl:? "HS 11 ! GOTO 1 
OOO 

2000 TRAP 2100:LPRINT " PARTICIPAN 

T EVENTS ENTERED":LPRINT " - 

-II 

2010 CLOSE tt2:OPEN tt2,4,O,"D:PART.DAT" 

2015 TRAP 2100:CLOSE tt3:OPEN tt3,8,0,"P 
ARKS" 

2020 ? " INPUT □ FOR NEHT lO PARTICI 

PANTS":? " INPUT E TO QUIT" 

2025 ? " WHICH";:INPUT K 

5: IF KS = "Q" THEN CLOSE tt2 : ? "IS" : GOTO 5 

ee 

2030 TRAP 2040:FOR H=1 TO lO:GOSUB 700 
O:? tt3;CNO;". ";AS;" ";:FOR Y=1 TO 6:? 

tt3;GCY3;" ";:NEHT Y:? tt3 

2036 NEHT K:POSITION 21,22:? .POSIT 

ION O,22:GOTO 2025 
2040 POSITION lO,IS:? " 

":? " ALL PARTICIPANTS DISPLA 

YED ":? " HIT TO CONT 

INUE":CLOSE »2 

2050 ? "H":CLOSE tt3:CLOSE ttl:OPEN ttl,4 

, O, "K : " : GET ttl, H : CLOSE ttl:? "IS" : GOTO 5 

ee 

2100 TRAP 40000:? :? " HUTUR 

N PRINTER ON":FOR ZZ=1 TO 250:NEHT ZZ: 

? "IS" : GOTO SOO 

3000 TRAP 500:? "CENTER PARTICIPANT tt" 

;:INPUT M 

3001 CLOSE »2:OPEN »2,4,O,"D:PART.DAT" 
IFOR H=1 TO M:GOSUB 7000:NEHT H:CLOSE 
tt2 

300S TRAP 2100:LPRINT " PARTI 

CIPANT tt";M;:LPRINT :LPRINT 
3010 LPRINT "1. ENTRANT NAME",A$:LPRIN 
T "2. AFFILIATION tt",B:LPRINT "3. SCHO 
OL GRADE",G:LPRINT "4. EVENT tt",C 
3020 OPEN tt3,8,O,"P:":? tt3;"5. EVENTS 
ENTERED",:FOR 0=1 TO 6:? tt3;GCD3;" ";: 

NEHT O:? tt3 

3025 ? tt3:? tt3;"ENTERING MARKS":FOR 0= 
1 TO 6 : IF GC03O0 THEN ? tt3; "EVENT tt"; 
GC03,EMCD3:NEXT O 

3026 POP :CLOSE tt3 

3040 ? "IS" : GOTO SOO 

SOOO P=1:? "ENTER EVENT tt OR RETURN TO 
CONTINUE" 

5002 ? "EVENT tt";:INPUT OS:IF OS = "" TH 
EN FOR V=P TO 6:GCV3=0:EMCV3=0:NEHT V: 
RETURN 

5003 GCP3=VALCD$3 

5004 ? "ENTERING MARK FOR EVENT tt";OS; 

:INPUT OS:IF 0$="" THEN GOTO 5004 

5006 EMCP3=VALCOS3:P=P+1:IF P>6 THEN R 
ETURN 

5007 GOTO 5002 

7000 INPUT tt2;AS:INPUT tt2;HS:B = VAL CHS3 
:INPUT tt2;HS:G=VALCHS3:INPUT tt2;HS:C=V 
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ALCHSJ 


7003 

FOR I=± 

TO 

6 : XNPUT 

02 J 

HS : 

G CIS= U AL 

CHSJ : 

NEKT X 






7005 

FOR I=± 

TO 

6 : INPUT 

02 J 

HS : 

EMCI)=UA 

L CHSJ 

:NEKT I: 

: CNO 

= CNO + ± 




7010 

RETURN 






8000 

FOR I = ± 

TO 

±8:INPUT 

02 

J NS 

: NEKT I 


5000 H$= M 00000000":RETURN 

±0000 TRAP 5Q : CLOSE tt4 : OPEN 04,8,0, II D: 
PART . DAT 11 : CLOSE 04 : GOTO 58 

±0500 . ... . . : G = 0 : C — O : . ..FOR X = 

± TO 6:G CIS = 0:EMCI3 = 0:NEXT I:RETURN 
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EMU TRACK MEET DATABASE - RESULTS 


±0 DIM TS C23 ,H$ (20] ,NAMES ClOQQ) ,K$ CZ3 , 
AFC63 f PNT5C63 f PARTCZ f 63 , R5 C13 f K1$CZ3 , K 
Z$CZ3 f EN$CZ3 ji SCORE £303 f H1$C83 f HZ$CZ03 , 
CC (2,503 
II DIM CF £503 

25 POSITION Oj O:FDR H = 1 TO 22:? "□"JIN 
EHT K 

SO POKE 752,1:SETCOLOR 2,O,O:POSITION 
0,O:POKE 02,O:POKE 16,04:POKE 53774,64 
STRAP 40000 

76 POSITION 0,0:? " INSERT THE D 

OTA DISKETTE":? " HIT TO 

CONTINUE"; : OPEN ttl , 4 , O , "K : " : GET ttl , H 

77 TRAP 70:CLOSE ttl:OPEN tt2,4,O,"D:TRA 

CK.BAS":? : CLOSE tt2 : GOTO 76 

70 TRAP 40000:OPEN ttl,4,O,"D:MEET.DAT" 
IFOR H = 1 TO 4:INPUT ttl;H$:NEXT KI FOR H 
= 1 TO 3:INPUT ttl;Y:NEXT HI FOR H = 1 TO 6 


75 INPUT ttl;Y:PNTS C H 3=Y:NEXT K:CLOSE tt 
1 

O0 ? "IS";:? " EVENT ttO" 




■ J-TTFi 




07 ? 


SO TRAP 40000:POSITION 0,12:? "EXXXXXX3 
rXX3 " : ? : ? " INPUT THE EVENT NUMB 

ER TO":? " ENTER/EDIT/VIEW RESULTS FO 

R AN EVENT" 

52 ? " HIT H TO ENTER/EDIT/VIEH" 

:? " CROSS—COUNTRV RESULTS ":? 

" HIT 0 TO PRINT SCORING SUMMARY" 

55 ? " OR HIT l:l^lll:n FOR MAIN MEN 

U":? " WHICH"INPUT TS 

:IF TS="" THEN 100O 

SO F=0:IN=0:TRAP SO:IF TS="P" THEN 300 


lOO IF TS="C" THEN 400 

105 T = VAL CT$3 :TRAP ISO I OPEN ttl,4,0,"D: 
RESULTS.DAT":TRAP 145:FOR H=1 TO lOOO: 
GOSUB SOOlIF T = EN THEN POP :CLOSE ttl :F 
=1:GOSUB 600:GOTO 200 
120 NEHT H 

145 EN=T:CLOSE ttl:TRAP 40000:POP :POST 
TION 0,12:? " EXXXXXXXXX3 " : ? " INPUT NU 
MBER OF PARTICIPANT WHO..." 

150 FOR H = 1 TO 6:? " PLACED ";H;:INPU 

T KS:IF KS="" THEN POP :GOTO 145 

151 IF H>1 THEN FOR Y = 1 TO H~1:IF UALt 
K$3 = PART12,Y3 THEN POP :GOTO 145 

152 PARTtl,HJ= H:PARTC2,H3=UALCKS3:NEHT 
H 

153 FOR Y=6 TO 2 STEP -1:FO=Q:P2=Q:FOR 
H = 1 TO Y:IF PART (2,H3> P2 THEN P2 = PART 

C2,H3 :P1 = PART Cl,H3 :SP=H:FO=l 

154 NEHT H:IF FO THEN PART Cl,SP3=PARTC 
1,Y3 :PART C2,SP3 = PARTC2,Y3 :PART Cl,Y3=P1 
:PART C2,Y3=P2 

155 NEHT Y 

156 OPEN ttl,4,O,"D:PART.DAT":Hl=l:FOR 
H = 1 TO PART C2,63 :IF H<>PARTC2,H13 THEN 

FOR Z=1 TO 16:INPUT ttl;H$:NEHT Z:NEHT 
H 

157 INPUT ttl;H$:GDSUB 155:NAME$CPART Cl 
,H13*20-1S,PART Cl,H13*203 = HS:INPUT ttl; 
H$:AF CPART Cl,H13 3 = VAL CH$3 :H1 = H1 + 1 

15S FOR Z=1 TO 14:INPUT ttl;H$:NEHT Z:N 
EHT H:CLOSE ttl:GOSUB 600:GOTO 200 
15S IF LENCH$3 <20 THEN FOR I = LENCH$3+1 

TO 20:H$Cl,13 ..NEHT I:RETURN 

160 RETURN 

1SS TRAP 400ee:CL0SE ttl:OPEN ttl,S,0,"D 
:RESULTS.DAT":CLOSE ttl:GOTO 105 
200 TRAP 40000:POSITION 0,12:? "EXXXXX2 
CUE":? " HIT NUMBER TO REPLACE A PAR 
TICIPANT":? " HIT 0 TO PRINT DISPL 

AYED DATA" 

205 ? " HIT 0 TO SAVE DISPLAYED DATA 

TO DISK":? " HIT TO EHIT TO 

OUTER MENU":? " WHICH" 


207 INPUT K$:TRAP 200:IF K$="" THEN FO 
R H=1 TO 6:AFCH3=0:NEHT H:GOTO 80 
210 IF K$="P" THEN 2SO 
212 IF K$="S" THEN 2SO 

215 K=UALCK53:IF K<0 OR K>6 THEN 200 
220 POSITION 0,12:? " [IIIIIIIII3 " : ? :? 

"NUMBER OF PARTICIPANT TO":? "REPLACE 
";NAMESCK*20-1S,K*2G3;:INPUT RNO 
222 OPEN ttl,4,O,"D:PART.DAT":IF RNO>l 
THEN FOR Y=1 TO RNO-1:FOR Z = 1 TO 16:IN 
PUT ttl;H$:NEHT Z:NEHT Y 

225 INPUT ttl;H$:GOSUB 15S:NAMESCK*20-1 
S,K*203=HS:INPUT ttl;HS:AFCK3=UALCH$3:C 
LOSE ttl:GOSUB 600:GOTO 200 
250 CLOSE ttl:POSITION 0,12:? "EXXXXXXX2 
EE":? :? :? " ARE THE ABOVE ENTRIES 


CORRECT 1 


:INPUT RS:IF R$ <>"Y 1 


THEN 20 


252 TRAP 200:IF F THEN OPEN ttl,12,0,"D 
:RESULTS.DAT":IF IN>1 THEN FOR H = 1 TO 
IN—1:GOSUB 510:NEHT H:GOTO 255 

253 IF F THEN 255 

254 OPEN ttl,S,O,"D:RESULTS.DAT" 

255 Kl£ = "00":K2$ = STR$CEN3 :KlSC3~LEN CK2 
S3,23=K2S:PRINT ttl:KlS 

258 FOR H=1 TO 6:HS=NAMESCH*20 _ 15,H#20 
3 SPRINT ttl;HS:K1$ = "00":K2S = STRS CAF CH3 3 
:KlS C3 —LEN CK2S3,23=K2S:PRINT ttl;KlS:NE 
H T H 

260 CLOSE ttl:GOTO 200 

28 Q TRAP 40000 :POSITION 0 , 12 :? "EXXXXE 
EXXE" :? " TURN ON PRINTER": 

? " HIT WHEN READY" 

282 CLOSE ttl:OPEN ttl,4,O,"K:":GET ttl,H 
:CLOSE ttl 

284 CLOSE tt2:OPEN tt2,8,O,"P:":? tt2;" 
EVENT tt";EN 

286 ? tt2;"PLACE PARTICIPANT A 

FFIL POINTS":? tt2;"- 


: NA 


288 FOR Y=1 TO 6:? tt2;" ";Y;" 

MESCY#20-15,Y#203;" ";AFCY3;" 

PNTSCY3:NEHT Y:? tt2:? tt2:? tt2:GOTO 200 


300 FOR H=1 TO 30:SCORECH3=0:NEHT H:PD 
SITION 0,12:? " EXXXXXXXXX3 " : ? " 

TURN ON PRINTER":? " HIT 0 

I^UhlM WHEN READY" 

305 CLOSE ttl:OPEN ttl,4,O,"K:":GET ttl,H 
:CLOSE ttl 

310 CLOSE ttl:OPEN ttl,4,O,"D:RESULTS.DA 
T":CLOSE tt2:OPEN tt2,8,0,"P:" 

320 TRAP 350:FOR H=1 TO lOO:GOSUB 500: 
FOR Y=1 TO 6:SCORECAFCY33=SCORECAFCY33 
+ PNTS CY3 :NEHT Y 

325 ? tt2;" EVENT tt";EN 

327 ? tt2;"PLACE PARTICIPANT A 

FFIL POINTS":? tt2;"- 


330 FOR Y=1 TO 6:? tt2;" ";Y;" ";NA 

MESCY#20-15,Y*203;" ";AFCY3;" "; 

PNTSCY3:NEHT Y:? tt2:? tt2:? tt2:NEHT H 
350 TRAP 40000:CLOSE ttl:? tt2;" 

TOTAL SCORES":? tt2;"- 


360 FOR Y = 1 TO 30 : IF SCORE CY3 OO THEN 
? tt2;" AFFILIATION tt";Y;"..." 

;SCORE CY3 

370 NEHT Y:CLOSE tt2:GOTO SO 

400 CLOSE ttl:TRAP 40000:POSITION 13 ,0: 

? "CROSS-COUNTRY":POSITION 0,12:? " CXX3 

EXXXXXX3" : ? 11 HIT NUMBER TO REPLACE 

PARTICIPANT" 

402 ? " WHO FINISHED IN THAT PLA 

CE":? " HIT H TO ADD FINISHERS TO 

LIST":? " HIT 0 TO DISPLAY RESU 

LTS" 

404 ? " HIT 0 TO PRINT CROSS COUNTRY 

RESULTS":? " HIT lil^Uhn FOR OUT 

ER MENU":? " WHICH"; 

405 INPUT KS:IF KS = "" THEN SO 

407 TRAP 400:IF KS="A" THEN FOR H=1 TO 
SO:CCC2,H3=0:NEHT H:GOTO 440 

408 IF KS="D" THEN 475 
405 IF KS="P" THEN 5GG 

41Q K=VALCK53:POSITION 0,12:? "EXXXXXX2 
EXX3" : ? 11 NO. OF NEW PART. TO GO IN PLA 
CE ";K;:INPUT NE:OPEN ttl,4,0,"D:PART.D 
AT" 

412 IF NE>1 THEN FOR H=1 TO NE~1:FOR Z 
=1 TO 16:INPUT ttl;H$:NEHT Z:NEHT H 
415 INPUT ttl;H$:GDSUB 155:INPUT ttljHiS 
:CLOSE ttl:DPEN ttl,12,O,"D:CROSS.DAT" 

417 IF K>1 THEN FOR H=1 TO K~1:INPUT tt 
1JH2S:IHPUT ttl:H2$:NEHT H 

418 PRINT ttl;HS:K1S=H1$C7,83:PRINT ttl; 
Kl$:CLOSE ttl:GOTO 400 

440 POSITION 0,12:? " [IIIIIIIII3 " : TRAP 
443:OPEN ttl,4,O,"D:CROSS.DAT":TRAP 441 
:FOR H=1 TO lOOO:INPUT ttl;H$:INPUT ttl; 
Hl$:NEHT H 

441 STA=H:CLOSE ttl:GOTO 444 

443 CLOSE ttl:STA=l 

444 ? "HIT TO STOP ENTERING" 

445 FOR Y = STA TO 50:POSITION 0,14:? "P 

ART. NO WHO PLACED + + + "; Y;: INPUT K$ 

:IF K$ = "" THEN POP :GOTO 447*CLA<>STA3 
+ 452* CLA = STA3 

446 CC C2,Y3 = UAL CK$3 :CC Cl,Y3 = Y:LA = Y:NEH 
T Y 

447 FOR Y=LA TO STA+1 STEP -1:FO=Q:P2= 
Q:FOR H = STA TO Y:IF CCC2,H3>P2 THEN P2 
= CC C2,H3 :P1 = CC Cl,H3 :SP=H:FO=l 

448 NEHT H:IF FO THEN CC Cl,SP3 = CC Cl,Y3 
:CC C2,SP3 = CC C2,Y3 :CC Cl,Y3 = P1:CC C2,Y3 = P 
2 
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443 NEHT V 

452 OPEN ttl ji 4 ji 0, M D : PART . DAT" : K1 = 5TA : FO 
R H = 1 TO CC CZj LA) :IF H<>CCt2 f HI) THEN 
FOR Z = 1 TO 16:INPUT ttl ; HS : NEHT Z : NEKT 
H 

453 INPUT ttl;HS:GOSUB 15 3 : NO ME S CCC Cl, H 
13*20-13 f CCtl f K1)*20)=HS:INPUT ttl; HS : C 
F CCC Cl f K133 =UALCHS) :H1=H1+1 

454 FOR Z = 1 TO 14 : INPUT ttl; HS : NEKT Z:N 
EHT H : CLOSE ttl : IF STA = 1 THEN OPEN ttl , 8 
f 0i M D:CROSS.DAT" 

455 IF STfl>l THEN OPEN ttl, 3, O, 11 D : CROSS 
. DAT" 

456 FOR Y = STA TO LA 

456 H$=NAME$tV#20~13 f V#20):KlS= M 00 M :K2 
SzSTRStCFtV)):KlSC3-LENtK2$) f 2)=K2S:PR 
INT ttl; HS: PRINT ttl; KlS: NEHT V 
453 GOTO 400 

475 HN = 1 : TRAP 430 : OPEN ttl , 4, O, 11 D : CROSS 


. DAT" 

476 POSITION 0,12!? "EXXXXXX 
HIT □ TO UIEH NEHT 6 
HIT 0 TO QUIT":? " 


HIT 0 TO QUIT":? " 

HHIC H 11 1 

477 INPUT J KS:IF KS="0" THEN 430 

478 IF KSO"N" THEN 476 


473 FOR H = 3 TO 8:POSITION 1,H:? 


":NEHT H 


480 POSITION 0,3:FOR H=HN TO HN+5:? " 

"JHJ" " ; : INPUT ttl ; H$ : GOSUB 1531? H$ 
; : INPUT ttl; H$ : ? UAL CHS) : NEHT H : H 
N=HN+6:GOTO 476 

430 POSITION 0,12!? : TRA P 

40000: CLOSE ttl:? " HIT F 

OR C-C MENU" : OPEN ttl , 4 , O , "K : " : GET ttl , H 


432 FOR H = 3 TO 8:POSITION 1,H:? " 

":NEHT H 

: CLOSE ttl: GOTO 400 

500 INPUT ttl; ENS : EN = UAL CENS) : FOR Z = 1 T 
O 6: INPUT ttl; HS : NAMES tZ*20-13, Z*20) =HS 

505 INPUT ttl; HS : AF CZJ = UAL CHSJ : NEHT Z:I 
u —TN+1 ■ RFTIIRN 

510 FOR 0 = 1 TO 13 : INPUT ttl; HS : NEHT 0:R 
ETURN 

600 POSITION 23,0:? EN 

602 POSITION 0,3:FOR Z=1 TO 6:? " ";Z 

;" ";NAMES tz*20-13,Z*20) ;" ";AFCZJ 

;" ";PNTS CZJ ..NEHT Z:RETURN 

300 TRAP 330:POSITION 0,12:? "EXXXXXXX3 
da":? " TURN ON PRINTER":? 

" HIT l:l^lll:n WHEN READY" 

310 OPEN ttl , 4, Q, "K : " : GET ttl , H : CLOSE ttl 
:CLDSE tt2:OPEN ttl , 4, O, "D : CROSS . DAT" : OP 
EN tt2,8,O,"P:" 

315 ? tt2; "PLACE PARTICIPANT AFF 

IL":? tt2 ; "- 

-I ■ 

317 FDR H = 1 TO 50 : INPUT ttl;HS:GOSUB 15 
3 : INPUT ttl ; HlS : ? tt2 ; " ";H;" ";HS;" 

";UALCHlSl:NEHT H 

330 CLOSE ttl: CLOSE tt2 : GOTO 400 

1000 ? "IS" : POSITION 0,11:? " INSE 

RT THE PROGRAM DISKETTE ":? " 

HIT WHEN READY" : CLOSE tt2 

1010 OPEN tt2,4, O, "K : " : GET tt2 , H : TRAP ID 
20 : OPEN ttl, 4, O, "D : TRACK . BAS" : CLOSE ttl: 
CLOSE tt2 : RUN "D : TRACK . BAS" 

1020 TRAP 40000: CLOSE ttl:? "[33 11 : GOTO 1 

eee 


185 





EMU TRACK MEET DATABASE - START NEW MEET 


±0 DIM A$C1?3 ff C$Cie3 f D$C1?3 f HC6 
J ,KS 113 ,TSC13 ,NAME$C143 

25 POSITION 0,O:FOR H = 1 TO 22:? "□"JIN 
EKT K 

50 POKE 752j1:SETCOLOR 2,O,O:POSITION 
0 f 0:PDKE 82,O:POKE 16,64:PDKE 53774,64 

STRAP 40000 

75 FOR 1=1 TO 6:HCI3=0:NEHT I 

76 POSITION 0,6:? " INSERT THE D 

OTA DISKETTE":? " HIT TO 

CONTINUE"; : OPEN ttl , 4 , O , "K : " : GET ttl , H 

77 TRAP 80:CLOSE ttl:OPEN tt2,4,O,"D:TRA 

CK.BAS":? : CLOSE tt2 : GOTO 76 

80 TRAP 40000:? "IS" : POSITION 0,11:? " 

HIT 0 TO EDIT/UIEW EXISTING MEET":? 

" HIT □ TO START NEH MEET DISK" 

81 ? " WHICH :INPU 

T TS 

82 IF TSO"E" AND TSO"N" THEN ? " + + " : 

GOTO 81 

84 TRAP SO:IF TS="E" THEN GDSUB 500:GO 
TO SS 

85 TRAP 85:OPEN ttl,4,O,"D:MEET.DAT":CL 

OSE ttl:? :? " USE a TO EDIT EXISTI 

NG MEET":FOR H = 1 TO 350:NEXT H:GOTO 80 

SO TRAP 40000:? :? " USE □ TO START 

A NEW MEET DISK":FOR H=1 TO 350:NEHT 
X:GOTO 80 
S5 TRAP 40000 

SS ? "IS" : TRAP 40000:? " GENERAL 

MEET INFORMATION":? :? 
lOO ? " 1. MEET NAME",AS:? " 2. MEET L 

□CATION",BS:? " 3. FIRST DAV",CS 

105 ? " 4. FIRST DATE",DS:? " 5. NUMBE 

R OF DAVS",E:? " 6. NUMBER OF LANES "; 

F 

HO ? " 7. SCORING FORMULA ";:FOR 1 = 1 

TO 6:? HCI3;" ";:NEHT I:? :? " 8. FIRS 

T ID NUMBER ";ID 

125 TRAP 100:? :? :? " HIT 0 TO 

ENTER ALL ITEMS":? " ENTER NUMBER TO 
EDIT SINGLE ITEM" 

130 ? " HIT 0 TO SAVE DATA ON DIS 

K":? " hit rnJiiii:ri for main menu" 

:? " WHICH";:INPUT KS:? 

"Pj" 

135 IF KS="" THEN CLOSE ttl:GOTO lOOO 

137 IF KS="A" THEN ALL=1:GOTO 140 

138 A L L = O 


140 IF 

K S = 

"1" OR 

ALL 

THEN 

7 

; 7 

"ENTER 

MEET NAME" 

: INPUT 

AS 





ISO IF 

K S = 

"2" OR 

ALL 

THEN 

7 

; 7 

"ENTER 

MEET LOCATION":INPUT 

BS 




160 IF 

K S = 

"3" OR 

ALL 

THEN 

7 

; 7 

"ENTER 

FIRST 

DAV" 

: INPUT 

CS 





170 IF 

K S = 

"4" OR 

ALL 

THEN 

7 

; 7 

"ENTER 

FIRST 

DATE 

":INPUT DS 





180 IF 

K S = 

"5" OR 

ALL 

THEN 

7 

; 7 

"ENTER 

NUMBER 

OF 

DAVS" : 

INPUT 

E 




ISO IF 

K S = 

" 6 " OR 

ALL 

THEN 

7 

; 7 

"ENTER 

NUMBER 

OF 

LANES" 

:INPUT F 




205 IF 

K S = 

"7" OR 

ALL 

THEN 

r> 

; r> 

"ENTER 

SCORING FORMULA" 

: ? "I 

. E . 

1ST 

ie 

, 2ND 


, 3RD 6 , 4TH 4, 5TH 2, 6 TH 1" 

210 IF KS="7" OR ALL THEN ? :FOR 1=1 T 

O 6 :? "ENTER SCORE FOR ";I;"TH PLACE": 
INPUT H:HCI3=H:NEHT I 

215 IF KS=" 8 " OR ALL THEN ? :? "ENTER 

FIRST ID NUMBER":INPUT ID 
225 IF KS="S" THEN 300 
250 ? "IS" : GOTO SS 

300 TRAP 306:? " ARE YOU SURE THE ENTR 

IES ARE CORRECT"; : INPUT KS : IF KSO"V" 
AND K$ <>"YES" THEN SS 

305 CLOSE ttl:OPEN ttl, 8 ,O,"D:MEET.DAT" 

306 IF LENCAS3=1S THEN 308 

307 FOR Y=LENCASJ+1 TO 1S:ASCY,YJ=. 

NEHT Y 

308 IF LENCBS3=1S THEN 310 

30S FOR Y=LENCBSJ+1 TO 1S:BSCY,YJ=. 

NEHT Y 

310 IF LENCCS3=1Q THEN 312 

311 FOR Y=LENCCSJ+1 TO 10:CSCY,YJ=. 

NEHT Y 

312 IF LENCDS3=1S THEN 320 

313 FOR Y=LENCDSJ+1 TO 1S:DSCY,YJ=. 

NEHT Y 

320 PRINT ttl:AS:PRINT ttl;BS:PRINT ttl;C 
S:PRINT ttl;DS 

321 PRINT ttl;E:PRINT ttl;F:PRINT ttl;ID 

322 FOR K = 1 TO 6 :PRINT ttl;H CX3 :NEXT K: 

CLOSE ttl:GOTO 80 

500 OPEN ttl,4,O,"D:MEET.DAT":INPUT ttl: 
AS:INPUT ttl;BS:INPUT ttl;CS:INPUT ttl;DS 

515 INPUT ttl;E:INPUT ttljF:INPUT ttl;ID 
520 FOR H = 1 TO 6 :INPUT ttl;H:HCX3=H:NEX 

T X:CLOSE ttl:RETURN 

lOOO ? "IS" : POSITION 0,ll:? " INSE 


RT THE PROGRAM DISKETTE ":? " 

HIT WHEN READY" : CLOSE tt2 

lOlO OPEN tt2,4,O,"K:":GET tt2,X:TRAP lO 
20:OPEN ttl,4,O,"D:TRACK.BAS":CLOSE ttl: 
CLOSE tt2:RUN "D:TRACK.BAS" 

1020 TRAP 40000 : CLOSE ttl:? "H3 11 ! GOTO 1 
OOO 
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KOOKY DIVER 


lee GOTO 620 

110 OH = J_00 : SOUND 1, 200 , S ji 1 : SOUND 2 f 201 
,10,l:5OUND 3,202,10,2 

120 0K=0K-0.25-TRT/32*TH:POSITION 10,2 

3:? XNT tOH)*COH>0) ; ■■ M ; :POSITION 21,23 
:? SC;:POSITION 37,23:? LIJ 
130 IF OH <1 THEN 330 

140 IF CU AND RND CCOl>0.95-THT/80O THE 
N 350 

ISO IF NOT RA AND CD AND RNDCC0)>0.?5 
THEN POSITION 20,18:? 11 ! &++++*++++*++ 

tttG ttn M : CU = 1 : CD = C0 : POKE PLH + 1,139 
160 ST=STICKCQ5:IF ST = 15 THEN POKE PDR 
,l:PV=PV+l*tPV<2053 

170 IF ST <>15 THEN POKE PDR,INTCRNDCCO 
3*2+13*12+1:POKE 77,0:IF DH<50 THEN OL 

= 1 

ISO IF ST = 14 THEN PV=PV-3*tPV>493 

ISO IF ST = 13 THEN PV = PV+3*CPV<2053 

20O IF S T = 11 THEN VH=VH-3*CVH>433:PV=P 

V + l* CPV<2053 

210 IF ST = 7 THEN VH=VH+3*CVH<2003:PV=P 

V + l* CPV<2053 

220 SRP=SRP~1:POKE DL+7,SRP:POKE DL+IO 
,SRP:IF SRP = Q THEN SRP=40 

230 IF PV<52 AND OL THEN 0H=100:OL=CO: 
FOR H=240 TO 250:SOUND 0,H,2,6:NEHT H: 
SOUND CO,CO,CO,CO 

240 POKE PLV,PV:POKE PLH,VH:TFB=PEEKC5 
32523:IF PEEKC532603= 0 AND TFB<>3 AND 
TFB <> 5 AND TFB<>7 THEN 120 

250 IF PEEKC532603 <>2 AND PEEK (532603 < 
>0 THEN 930 

260 IF PEEKC532523=3 AND PV>70 AND TR 

THEN 330 

270 IF PEEK C532603 AND STRIGCO)=0 THEN 
TR=1:RA=1:POKE PLH+1,O:FOR H=1 TO 15: 
SOUND O,SO,lO,S:NEHT HiSOUND 0,0,0,0 
280 IF PEEKC532523=3 AND PV<60 AND TR 

THEN POKE PLV+1,PV-IO:POKE PLH+1,VH:GO 
TO 310 

290 IF CCD AND PEEKC532523=7 AND PV>19 
03 OR CCD AND PEEKC532523=5 AND VH>100 
AND VH <160 AND PV>1003 THEN 930 
300 POKE 53278,O:GOTO 120 

310 FOR JH=200 TO 210:SOUND 0,JH,10,8: 
NEHT JH:SOUND CO,CO,CO,CO:FOR MIAD=1 T 
O ISO:NEHT MIAD 

320 SC=SC+TRT*100:TR=CO:RA=CO:POKE PLH 
+ 1,O:POKE PLV + 1,198:TRT=INT CRNDCC03*8 3 
*8+1:POKE PDR+1,TRT:GOTO 300 
330 POKE PLV + 1,161* CPV>1503 +113* CPV>lO 
O AND PV <1403 +81* CPV> 75 AND PV<9Q3:TR = 
0:FOR GH=220 TO 225:SOUND 0,GH,10,8 
340 NEHT GH:SOUND CO,CO,CO,CO:POKE PLH 
+1,VH:GOTO 270 

350 FOR V = 18 TO 21:POSITION 2Q,V:? "CC 

11 : NEHT V : POSITION 21,21:? ■■ C J J J ] ■■ : CD = 1 

:CU=CO:POKE PLH+1,0:GOTO ISO 

360 DIM CHSC403:CH$= M ABCDEFGHIJKLMNOPQ 

RSTUUHHVZ ! +ttSKfi*G C3 []=;■■: PM= CPEEK C1063 

-163*256:CH = CPEEK C1063-83*256 

370 FOR 1=0 TO 511:POKE CH+I,PEEKC5734 

4+13:NEHT I:FOR 1=1 TO 40:CHP=CH+CASCC 

CHSCI33-323*8:FOR J=0 TO 7:READ A 

380 POKE CHP+J,A:NEHT J:NEHT I:POKE 75 

6,CH/256:POKE 752,1:M=PEEKC1063-14:N=M 

+ 1 

390 DL=PEEKC5603+256*PEEKC5613:POKE DL 
+3,68:FOR H=DL+6 TO DL+32:POKE H,4:NEK 
T H:POKE 82,O:SM=PEEK C883 +256*PEEK C893 

400 POKE DL+7,O:POKE DL+8,M:POKE DL+13 
,PEEKC883+120:POKE DL+14,PEEKC893:POKE 
DL+33,132:POKE DL+35,65 
410 POKE DL+4,68:POKE DL+6,68:POKE DL+ 
12,68:POKE DL+9,68:POKE DL+10,0:P0KE D 
L + ll , N 


420 
D A : 

oh=ioo: 

! POKE H, 

LI 
A : 

=3:FOR H=1710 
NEHT K 

TO 1763: 

REA 

430 

POKE 

88 

, 0 

:POKE 89,M:POSITION 5, 

O : ? 

"F = 

= ---- = 

i- 


E":POSITION 5, 

1 : ? ,, F = = 

:- 

440 

POKE 

83 

, N 

:POSITION 0,0: 

? "ABAABBGD 


DDDDDDDHBABAABABBAABAABABAABBAAB" 

450 POSITION 0,1:? "ABAABBGDDDDDDDDHBA 
BAABABBAABAABABAABBAAB" 

460 POKE 89,INT CSM/2563 :POKE 88,SM-PEE 
K C893*2 5 6 

470 POSITION 35,7:? "JDDDD":POSITION 3 
5,8:? M KIIII M :POSITION 36,9:? "LMNO" 
480 POSITION 0,ll:? "DDDDDDT":? "IIIII 
IU M :? "IIIIIU":? "PQRRS":POSITION 31,1 
7:? "JDDDDDDDD" 

490 POSITION 31,18:? ,, KIIIIIIII M : POSIT 
ION 31,IS:? ,, WIIIIIIII ,, :POSITION 31,20 
:? "HVZPQRRS" 

500 POSITION 20,18:? M !fi M :POSITION 20, 
is:? M +* M :POSITION 20,20:? M +* M :POSITI 
ON 20,21:? "ttG C C C3 M 


510 POSITION 21,22:? ■"ttSSSK 11 : FOR H = SM+ 
120 TO SM+S1S:IF PEEKCH3=0 THEN POKE H 
, 35 

520 NEHT K:FOR K=704 TO 710:READ A:POK 
E H,A:NEHT K 

530 FOR 1 = 1536 TO 1706:READ A:POKE I,A 
:NEHT I:FOR 1=1774 TO 1787:POKE I,0:NE 
HT I:FOR I=PM+1023 TO PM+2047:POKE I,0 

540 NEHT I:FOR I=PM+1536 TO PM+1543:RE 
AD A:POKE I,A:NEHT I:FOR I=PM+17S2 TO 
PM+1799:READ A:POKE I,A:NEHT I 
550 FOR I=PM+1 TO PM+48:READ A:POKE I, 
A:NEHT I 

560 FOR I=PM+257 TO PM+320:READ A:POKE 
I,A:NEHT I:PLH=53248:PLV=1780:PLL=178 
4:PDR=1772:POKE 623,1 

570 POKE 1788,PM/256+4:POKE 53277,3:PO 
KE 5427S,PM/256:POKE 1771,PM/256:H=USR 
C16S63 

580 POKE PLL,12:POKE PLL+l, 8 :POKE PLL+ 
2, 8 :POKE PLL+3, 8 :POKE 53258,3:POKE 532 
5S , 3 

5SO POSITION 2,23:? "OHVGEN: SS SCORE 
: O DIVERS: 3"J 

600 POKE 208,O:POKE DL+34,130:POKE 512 
,174:POKE 513,6:POKE 54286,192:SRP=40: 
CU = 1:C O = O 

610 VH=SO:PV=4S:POKE PLH+1,13S:POKE PL 
V+l,1S8:POKE PDR+1,l:POKE PLV+2,155:PO 
KE PLV+3,65:TRT=1:POKE 55S,62:GOTO HO 

620 GRAPHICS 1:POKE 16,64:POKE 53774,6 

4:SETCOLOR 2,0,0:DL=PEEKC56Q3+256*PEEK 
C5613:POKE DL+14,23:POKE DL+18,2 
630 POKE 54276,4:SETCOLOR 0,8,4:P0SITI 
ON 6 , S : ? « 6 j_"KOOKV DIVE R" : PO SITION 4,1 
l:? tt 6 ; "GnUfE start H 3 E 33 THH 11 
640 POSITION S,13S? » 6 ;"ANSCHUETZ/WEIS 
GERBER/ANSCHUETZ" 

650 IF PEEK C5327S3=6 THEN GRAPHICS Q:P 
OKE 16,64:POKE 53774,64:POKE 55S,0:P0K 
E 712,134:GOTO 360 
660 GOTO 650 

670 DATA 0,0,0,15,55,220,215,215,0,0,0 

, O, O, O,O,255,85,85,85,85,85,85,85,85,1 

70,170,170,170,170,170,170,170 

680 DATA 170,170,168,168,160,160,128,1 

28,170,170,42,42,10,10,2,2,170,170,42, 

42,10,30,66,254 

6 SO DATA 170,170,168,168,160,172,151,1 
51,255,255,255,255,255,255,255,255,87, 
35,35,127,255,127,255,127 

700 DATA 127,35,127,255,255,35,127,87, 
255,127,35,127,127,255,127,87,255,255, 
255,255,253,253,245,213 

710 DATA 255,253,213,85,85,85,85,85,25 
5,127,35,127,35,255,35,87,255,125,85,8 

5.85.85.85.85 

720 DATA 255,127,35,87,85,85,85,85,255 
,255,255,255,221,85,85,85,255,253,213, 

85.85.85.85.85 

730 DATA 213,245,245,213,245,245,213,2 

13.213.213.245.253.245.253.245.213.255 
,255,253,255,253,253,245,213 

740 DATA 87,87,35,127,127,35,87,87,255 
,127,35,35,127,125,117,85,255,255,247, 

247.213.85.85.85 

750 DATA 255,255,253,253,117,85,85,85, 
87,87,34,34,122,122,234,234,234,234,23 
4,234,234,234,234,234 

760 DATA 234,234,122,122,34,34,87,87,1 
70,170,170,170,170,170,255,255,171,171 
,173,173,181,181,213,213 

770 DATA 213,213,245,245,221,221,221,2 

21 , 221 , 221 , 221 , 221 , 221 , 221 , 221 , 221,221 

,221,223,223,245,245,213,255 

780 DATA 85,85,255,255,85,85,85,255,85 

,85,85,213,245,125,35,255,87,87,34,34, 

122.122.234.255 

730 DATA 213,213,181,181,173,173,171,2 

55.170.170.255.255.255.255.170.170.255 
,255,170,170,170,170,170,255 

800 DATA 72,163,224,141,10,212,141,3,2 
12,163,212,141,24,208,163,135,141,0,2, 
104,64 

810 DATA 72,163,250,137,208,208,7,163, 
0,133,208,24,144,15,230,208,165,208,14 
1,2,208,163,255,56,223,208 

820 DATA 141,3,208,141,10,212,163,174, 

141,0,2,104,64,246,0,128,6,132,216,50 

830 DATA 162,3,183,244,6,240,83,56,221 

,240,6,240,83,141,254,6,106,141,255,6, 

142,253,6,24,163,0,103,253,6,24,103 

840 DATA 252,6,133,204,133,206,183,240 

,6,133,203,173,254,6,133,205,183,248,6 

,170,232,46,255,6,144,16,168,177,203 

850 DATA 145,205,163,0,145,203,136,202 

,208,244,76,87,6,160,0,177,203,145,205 

,163,0,145,203,200,202,208,244,174 
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See DATA 253j6j173,254j6 ,157,240,6,±8? 
,236,6,240,40,133,203,24,138,141,253,6 
ji 109,235,6,133,204,24,173,253,6, ±8? 

878 DATA 252,6,133,286,181,248,6,133,2 

05,181,248,6,178, 160 , 8,177,283,145,285 

,200,202,288,248,174,253,6,161,8,157 

880 DATA 236,6,202,48,3,76,2,6,76,88,2 

28,O,O,104,168,7,162,6,168,8,32,82,228 

,86,8,156,188,251,254,181,156,8,8 

880 DATA 65,16,138,16,68,0,146,16,56,5 

6,146,254,56,56,56,48,40,40,188,16,58, 

57,17,255,184,184,188 

808 DATA 34,35,32,86,8,82,156,136,255, 
28,28,125,68,186,4,6,188,48,48,48,56,5 
6,56,254,146,56,56,16 

818 DATA 0,0,0,24,60,118,68,24,16,56,8 
4,124,48,56,16,254,8,126,24,36,66,66,3 
6,24,48,42,252,38,228,63,84,28 
828 DATA 0,0,158,104,232,288,182,182,1 
,2,12,28,184,112,86,144,62,28,127,83,6 
2,28,8,28,8,8,254,254,65,127,118,127 
838 POKE PDR,37:FOR MB = PY TO 285:POKE 
PLY,MB:SOUND 8,MB,18,8:NEKT MB:SOUND C 
O, C8, CO, C8 : FOR 14=1 TO 25 : NEKT H 
848 IF TR THEN TR=8:RA=8:POKE PLK+1,8: 
POKE PLY+1,188 

858 LX=LX-1:YK=88:PY=48:OL=C8:IF LI=8 
THEN PD5XTXDN 37,23:? M 8 M ;:GOTO 878 
868 POKE 558,8:POKE PDR,l:POKE PLY,PY: 
POKE PLH,YH:POKE 53278,8:POKE 558,62:G 
OTO 118 

878 FOR FIAB=1 TO 3:SOUND FXAB,C8,C8,C 
8:NEKT FXAB:CU=1:CD=8:PK=8:TR=C0:RA=C8 

888 GOSUB 1858:GDSUB 1060:IF 5C>H5 THE 
N H5=5C 

888 POSXTXDN 8,23:? "HIGH SCORE: ";HS; 
: POSITION 18,23:? "PRESS TO BEGI 

N"J:FOR H=1 TO 50:GOSUB 1060:NEKT H 
100O GOSUB 1050:POSITION 2,23:? "OKYGE 
N: "J INT C0K3*tC0K>03 ;: POSITION 14,23:? 
"SCORE: ";SC;:POSITION 28,23 
1010 ? "DIVERS: ";LIJ:FOR W=1 TO 50:GO 

SUB 1060:NEKT H:GOTO 870 
1020 GOSUB 1050 

1030 POSITION 20,18 : POKE 558,O:? " ■ &+* 

ten": position 2 , 23 :? "ok 

YGEN: 88 SCORE: O DIVERS: 3"; 

1040 POKE PDR,1:POKE PLX,80:P0KE PLY,4 
8:POKE 53278,O:LI=3:SC=CO:GOTO 610 
1050 POSITION 0,23:? " 

■ ■ ■ ;RETURN 

1060 IF PEEK£532783=6 THEN POP :GOTO 1 
020 

1070 RETURN 
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KOOKY KLIMBER 


100 GOTO 330 

110 POKE PLK+ljH5:IF PEEK£53253)>=4 OH 
D PEEK £53253) < = 7 THEN POKE PLH+1,0:P0K 
E 53273,O:GOTO FALL 
120 POKE PLH+1,0 

130 QR=-QR:IF QR = 1 THEN GOSUB 6BO 

140 GOSUB 710:POKE PDR f l:IF IHT £HC*RND 

£0)+l)=l THEN 240 

ISO R = INT£5#RNDCG3 +l)*40 + ML-70:R1 = R + IH 

T £7#RHD103+13 

160 L = 170:T = G:GOTO ISO 

170 L=18D:T=10:GOTO ISO 

ISO L = 110:T = 2 O 

ISO P=PEEKCR1+T3 

200 IF P = SO THEN POKE Rl+T,S5:POKE R1+ 
T + l , 245 : GOTO HO 

210 IF P = 17G THEN POKE Rl+T,255:GOTO 1 
lO 

220 IF P=165 THEN POKE Rl+T,245:POKE R 
1+T-l, S5 : GOTO HO 
230 GOTO L 

240 R = INT£5#RNDCG3 +13*40 + ML-50:R1 = R + IH 

T £7*RHDC03 +13 

250 L=26D:T=G:GOTO 2BO 

260 L=270:T=1G:GOTO 2SO 

270 L = 110:T = 20 

2SO P=PEEK£R1-T3 

2SO IF P = S5 THEN POKE Rl-T,SO:POKE Rl- 
T + l,165:GOTO HO 

300 IF P=255 THEN POKE Rl-T,170:GOTO 1 
lO 

310 IF P = 245 THEN POKE Rl-T,165:POKE R 
1-T-l,SO:GOTO 110 
320 GOTO L 

330 GOSUB 1180:PM=PEEKC1063-16:PMBASE= 
256#PM:DL=PMBASE+2083:5T = 1:IL = 3:UH = 1:P 
C0L0=230:PC0L1=230:PCOL2=lS6:PCOL3=66 
340 GOSUB 370:POKE PLL,34:POKE PLL+1,2 
SPOKE PLL+2,16:POKE PLL+3,16!POKE 5325 
6,1:POKE 53257,1:POKE 53258,1 
350 H5=120:POKE PLV,137:POKE PLV+1,137 

: Y8=226 : JH=1 : CiR = -l : FALL = 838 
360 DRAH=1:DRAH1=1:POKE PDR,DRAM:POKE 
PDR + 2,DRAMI:MLB=IHTEDL/256):MLA=DL~MLB 
*256:GOTO 650 

370 FOR 1=1536 TO 1706:READ A:POKE I,A 
:NEHT IlFOR 1=1774 TO 1787!POKE I,0:NE 
KT X 

380 FOR I=PMBASE+1023 TO PMBASE+2047:P 
OKE 1,0:NEHT X:DRHBAS=PMBASE+1 
3SO FOR K=DRHBAS TO DRHBAS+135:READ H: 
POKE K,H:NEHT K:POKE PMBASE+1280,231:P 
OKE PMBASE+1281,231 

400 FOR K=PMBASE+513 TO PMBASE+576:REA 
D H:POKE K,H:NEHT K 

410 FOR K=PMBASE+17S2 TO PMBASE+1807:R 
EAD H:POKE K,H:NEHT K 

420 POKE 704,PCOLO:POKE 705,PCOL1:POKE 
706,PCOL2:POKE 707,PC0L3 
430 PLH=53248:PLV=1780:PLL=1784:POKE 5 

50,62:POKE 623,1:POKE 1788,PH+4:POKE 5 
3277,3:POKE 5427S,PM 

440 PDR = 1772:POKE 1771,PM:H = USR E16S63 : 
RETURN 

450 DATA 162,3,18S,244,6,240,80,56,221 

,240,6,240,83,141,254,6,106,141 

460 DATA 255,6,142,253,6,24,160,0,100, 

253,6,24,1O0,252,6,133,204,133 

470 DATA 206,180,240,6,133,203,173,254 

,6,133,205,180,248,6,170,232,46,255 

480 DATA 6,144,16,168,177,203,145,205, 

160,O,145,203,136,202,208,244,76,87 

400 DATA 6,160,O,177,203,145,205,160,O 

,145,203,200,202,208,244,174,253,6 

500 DATA 173,254,6,157,240,6,180,236,6 

,240,48,133,203,24,138,141,253,6 

510 DATA 1O0,235,6,133,204,24,173,253, 

6,180,252,6,133,206,180,240,6 ,133 

520 DATA 205,180,248,6,170,160,O ,177,2 

03,145,205,200,202,208,248,174,253,6 

530 DATA 160,O,157,236,6,202,48,3 , 76,2 

, 6,76,08,228,O,O,104,160 

540 DATA 7,162,6,160,O,32,02,228,06 

550 DATA 231,231,105,105,66,66,SO,SO,0 

O,126,126,126,60,60,60,60,60,24,24,24, 

24,24,24,24,60,60,60,36,36,36,102 

560 DATA 102,231,231 

570 DATA 224,224,102,102,71,71,67,67,0 
O,SO,SO,126,126,126,60,60,60,60,60,24, 
24,24,24,60,60,60,lOO,lOO,228,228 
580 DATA 6,6,7,7,7,7,3,3 

50O DATA 226,226,104,104,SO,SO,SO,126, 
126,126,60,60,60,60,60,24,24,24,24,60, 
60,60,38,38,30,30,06,06,224,224 
600 DATA 231,231,102,102,36,36,36,60,6 
O,60,24,24,24,24,24,24,24,60,60,60,60, 
60,126,126,126 

610 DATA SO,SO,SO,66,66,105,105,231,23 
1 

620 DATA O,O,120,120,120,120,255,255,1 


20,120,120,120,O,O,O,O,16,16,32,32,06, 
06,144,144,0,0,6,6,4,4,8,8 

630 DATA 124,124,16,16,16,16,16,16,16, 
16,16,16,16,16,124,124,8,8,4,4,6,6,9,0 
,144,144,06,06,32,32,16,16 

640 DATA 64,64,224,226,84,72,4,4,255,2 
55,255,126,126,126,60,60 
650 GOSUB 1050:GOTO 11Q 

660 IF CSTICKEO)=14 OR STICK (OS =6 OR S 
TICK £0)=103 AND ST = 1 THEN ST = Q:POKE 77 
,O:GOSUB 020 

670 IF STICK£05=13 OR STICK COS =5 OR ST 
ICK £0)=0 THEN ST = 1 

680 IF STICK£0)=11 THEN H5=H5~12:GOSUB 
1230:IF K5=48 THEN GOTO FALL 
60O IF STICKEO)=7 THEN H5=H5+12:GOSUB 
1230:IF H5=1S2 THEN GOTO FALL 
700 RETURN 

710 IF V8>225 OR YS>225 THEN Y8=0:Y0=O 
:H8=0:HS=0:POKE PLH+2,0:P0KE PLY+2,0:P 
OKE PLH+3,O:POKE PLY+3,O:GOSUB 760 
720 IF EA=1 AND JH THEN POKE PDR+2,DRA 
Ml:Y8=Y8+6+RA:DRAU1=DRAH1+16:IF DRAH1> 
50 THEN DRAH1=1 

730 IF EA=2 AND JH THEN YS=YS+3+RA 

740 IF STICK C03 =13 OR STICK£0)=5 OR ST 

ICK CO)=0 THEN ST = 1 

750 GOTO 800 

760 EA=INT£RNDEO)*2)+l 

770 IF EA=1 AND JH THEN H8=INTERNDEO)* 
120+603:Y8=10:RETURN 

780 IF JH THEN H0=INTERNDEO)*120+60):Y 
0=10:DRAH1=1:RETURN 
700 RETURN 

800 POKE PLK+2,K8:POKE PLY+2,Y8:POKE P 
LH+3,H0:POKE PLY+3,Y0 

810 IF PEEK £53262) OR PEEK£53263) THEN 
POKE 53278,O:GOTO FALL 
820 POKE PLH,H5:ML=PE+256*PE1:RETURN 
830 ML1=ML:POKE PDR,103:POKE PLV+2,G:P 
OKE PLK+2,O:POKE PLY+3,0:POKE PLH+3,O: 
Y8=226:Y0=226 

840 IL=IL-l:IF IL=0 THEN 1240 

850 IF ML=DL+1720 THEN POKE PLH,0:H5=0 

SPOKE 53278,O:ST=1:GOTO 880 

860 PE = PE + 10:IF PE> 255 THEN PE = PE~256: 

PE1 = PE1 + 1:IF PE1> 255 THEN PE1 = PE1~256 

870 ML=PE+256*PE1:POKE DL+4,PE:POKE DL 

+5,PEI:GOTO 850 

880 FOR H=ML1+1 TO DL+1881 STEP lO : IF 
PEEK £H)=85 THEN NEHT H:GOTO 1260 
80O FOR H1=H TO H+6:IF PEEK£H1)=05 THE 
N POKE HI,SO:Hl=Hl+i:POKE H1,165:NEHT 
HI:NEHT H:GOTO 1260 

0 O O IF PEEK EH1)=255 THEN POKE H1,170:N 
EHT HI 

01O NEHT HI:NEHT H:GOTO 1260 
02O FOR H=1 TO 4:PE=PE-10:IF PE<0 THEN 
PE=PE+256:PE1=PE1-1:IF PE1<0 THEN PEI 
=PEl+256 

03O SC=SC+PT:POKE DL+4,PE:POKE DL+5,PE 
1 

040 IF 50=10000 AND OH THEN IL = IL + 1 : U 
H=0:FOR H=10 TO 30:SOUND 1,H,lO,lO:NEH 
T H:SOUND 1,0,0,0 

050 IF H=1 OR K=3 THEN DRAH=35 

060 IF H=2 THEN DRAH=60 

070 IF H=4 THEN DRAH=1 

080 POKE PDR,DRAH:ML=PE+256*PE1 

080 IF EA=1 AND JH THEN POKE PDR+2,DRA 

HI:YB=YB+14+RA:DRAH1=DRAH1+16:POKE PLY 

+ 2 jY8*£Y8<255) 

100O IF EA=2 AND JH THEN Y0=Y0+11+RA:P 
OKE PLY+3,Y0*£Y0<255) 

1010 GOSUB 1230:IF DRAH1>50 THEN DRAH1 
= 1 

1020 IF DL + 205> ML THEN JH=1:GOSUB 1050 
:GOTO HO 

1030 IF ML<DL+445 THEN JH=0:POKE PLK+2 
,0:P0KE PLY+2,O:POKE PLK+3,S:PDKE PLY+ 
3,O:Y8=226:Y0=226 
1040 NEHT K:RETURN 

1050 POKE PLK+2,O:POKE PLY+2,O:POKE PL 
H+3,O:POKE PLY+3,O:Y8=226:Y0=226:RA=RA 
+1:PT=RA*5:IF PT>50 THEN PT=SO 
1060 POKE PLH,O:H5=120:HC=RA*2+1:5C=5C 
+ £RA-l)*ieOO 

1070 GRAPHICS 17:SETCOLOR 4,8,6:SETCOL 
OR 0,13,2 

1080 BN = BN + 1 : POSITION 4,8:? t)6j M 5CORE: 

SC:POSITION 4,11:? «6J"BUILDING 
BN:POSITION 4,13:? «6J"KLIMBERS: M ;IL 
1080 FOR H=1 TO 500:NEHT H:GRAPHICS 21 
:SETCOLOR O,ERA—1)*2,4:SETCOLOR 1,0,0: 
SETCOLOR 2,14,lO:SETCOLOR 4,8,6 
110O ST=i:POKE 560,MLA:POKE 561,MLB:PO 
KE 558,O:POKE DL,0:P0KE DL+l,Q:POKE DL 
+2,O:POKE DL+35,65 

1110 POKE DL+36,MLA:POKE DL+37,MLB:POK 
E DL+3,72:FOR H=DL+6 TO DL+34:POKE H,8 
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:NEXT H 

1120 FOR H=DL+830 TO DL+910:POKE K f O:N 
EKT K:FOR K=DL+401 TO DL+1881 STEP 48: 
FOR H1 = H TO H+7:POKE H1,85:HEHT HI 
1130 FOR K1=K+18 TO H + 3Q STEP lO:FOR K 
2 = H1 TO Kl + 6 STEP 3 : POKE HZ^BiPOKE K2 
+1,165:IF H2<Hl+6 THEN POKE H2+2 I 17Q 
1140 NEHT H2:NEHT HI:NEHT H:FOR H=DL+4 
GO TO DL+1881 STEP 200:POKE K f l:PDKE H 
+9 f 64:HEKT H 

1150 FOR H=DL+1S21 TO DL+1S28:POKE H,8 
5:NEHT H:FOR H=DL+1S30 TO DL+1979:POKE 
H,85:NEHT K 

1160 H=INTCCDL+1720)/256):POKE DL+4,DL 

+1720-H*256:POKE DL+5,H:PE=DL+1720-H*2 
56:P E1 = H 

1170 ML = PEEK CDL+4J+256*PEEKCDL+5J :POKE 
55?,62:POKE PLK,K5:RETURN 
1180 GRAPHICS 1:SETCOLOR 2 , O,O:DL = PEEK 
(5603 +256*PEEK(5613 :POKE DL + 14,23:POKE 
DL + 18 j2:POKE 54276,4 
11SO SETCOLOR O,8,4:POSITION 5,S:? «6j 
"KO OKY KLI HBER" : PO SITION 4,11:? ttS : "r-TS 
fTE start kJ»MaJiETTI " : POSITION S,13 
1200 ? tt6; "ANSCHUETZ/HEISGERBER/ANSCHU 

ETZ" 

1210 IF PEEK£53279)=6 THEN GRAPHICS 21 
:SETCOLOR 4,8,6:RETURN 
1220 GOTO 1210 

1230 POKE PLKjH5:FOR H=0 TO lO STEP 1. 
5:SOUND O,220-H,lO,ie-H:SOUND 0,180-H, 
10,10—H:NEHT H:SOUND O,O,O,O:RETURN 
1240 FOR K=0 TO 3:POKE PLH+H,O:NEHT H: 
POKE 53277,O:GRAPHICS 17:SETCOLOR 2,Q, 
O 

1250 POSITION 4 , S : ? tt6 ; "SCORE "jSClPOS 
ITION 5,16:? tt6; "game over" : FOR H=Q TO 
O STEP O:NEHT H 

1260 POKE PDR,1:POKE PLH,120:H5=120:GO 
TO HO 
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KOOKY’S QUEST 


10 REM KOOKY 1 S QUEST 
20 REM BY 

3G REM ANSCHUETZ/HEISGERBER/ANSCHUETZ 
4G REM ANTIC MAGAZINE 

1GG GRAPHICS 18:POKE 16,64:POKE 53774, 

64:DL=PEEK(5601+256*PEEKC561):SETCOLOR 
Z,O,0 

±10 POKE DL+IO,6:POKE DL+ll,6:POKE DL+ 
12,6:POKE DL+13,2:SETCOLOR 0,8,4:P0SIT 
ION 4,4 

120 ? tt6 ; "KOOKY 1 S QUEST" : POSITION 5,8: 

? 06;"ANSCHUETZ/HEISGERBER/ANSCHUETZ" 
130 P OSITION 0,6:? start EHM 

iaJiH.1 " : IF PEEK £5327?) <>6 THEN 130 
140 DIM A$ C253 ,B$ C251 :GRAPHICS O:POKE 
16,64:POKE 53774,64:POKE 752,1:5ETCOLO 
R 2,O,2:SETCOLOR 4,0,2 

ISO Ah"< + +< + t< + t + + + + ++<++<++<" : BS = 

11 + + + + + + + + + + + + + + + + ■■ 

160 DIM DHPC6.63,MDN$C63,CON$C6),T$C2) 
, HEPS C123 : MONSz'^J : \" : CON$ = " C 11 : 

TS = "]_ ,, :HEPS = ,, ghefcdabi jkl" 

170 FOR R=1 TO 6:FOR C=1 TO 6:READ A:0 
HPCR,C3=A:NEHT C:NEXT R 

ISO DIM F$ C163 : FS = " < + +< + +< + +< + +<■*■+<" 
ISO DIM G$C253 ,H$C253 :G$ = ■■< + +< + +< + +< + + 
< + t< + t< + t<+tO':HS="<++ + + + + + + + + + + 

+ + + +<■■ 

200 DATA 30,15,10,6,5,7.5,10,30,15,5,7 

.5,6,15,10,30,7.5,6,5,5,7.5,6,15,30,10 

,7.5,6,5,10,15,30,6,5,7.5,30,10,15 

210 DATA 0,0,64,248,64,0,0,0 

220 DATA 0,0,2,31,2,0,0,0 

230 DATA 0,27,10,254,10,27,0,0 

240 DATA 0,216,80,127,80,216,0,0 

250 DATA 0,31,14,254,14,31,0,0 

260 DATA 0,248,112,127,112,248,0,0 

270 DATA O,64,96,255,96,64,O,O 

280 DATA 0,2,6,255,6,2,0,0 

290 DATA 0,0,63,24,252,0,0,0 

300 DATA 0,0,252,24,63,0,0,0 

310 DATA O,40,18,92,58,72,20,O 

320 DATA O,20,72,58,92,18,40,O 

330 DATA 255,135,219,219,219,219,135,2 

55 

340 DATA 126,255,255,231,231,255,255,1 
26 

350 DATA 60,24,36,66,66,36,24,0 

360 DATA 85,85,85,85,85,85,85,85 

370 DATA 254,254,254,0,239,239,239,0 

380 DATA 0,126,219,255,189,195,126,0 

390 DATA 255,231,195,195,231,231,231,2 

55 

400 DATA 255,219,147,219,219,219,193,2 
55 

410 DATA 126,255,255,255,255,255,255,1 
26 

420 DATA 73,114,149,12,126,146,34,85 

430 DATA 28,62,42,28,42,34,85,85 

440 DATA 36,219,126,66,255,165,36,231 

450 DATA 0,0,219,126,24,36,0,0 

460 DATA 240,80,248,30,7,33,67,62 

470 DATA 0,28,42,28,73,62,8,54 

480 DATA 124,84,124,40,254,56,124,238 

490 DATA 0,0,192,224,191,234,192,0 

500 DATA 60,66,129,255,165,165,255,O 

510 DATA 170,170,170,170,170,170,170,1 

70 

520 ? "IS" 

530 DIM CHA$C315:CHAS="abCdefghijkl*+_ 
COKfinC^; :/\tn?": CHS = (PEEK C1065 —85*2 5 
6 

540 PM=CPEEKC1Q65-125*256:IF PEEKCCHS+ 
S5 OO THEN 590 

545 ? :? :? " One moment please. . . " 

:F0R H = 1 TO 700 : NEKT H:? "IS" : POKE 559, 
O 

550 FOR I—O TO 1023:POKE CHS+I,PEEKt57 

344+15:NEKT I:FOR 1=1 TO 31:CHP=CHS+CA 

SCtCHAStI55-325*8 

560 IF I<13 THEN CHP=CHP+256 

570 FOR J = Q TO 7:READ A:POKE CHP+J,A:N 

EHT J:NEKT I 

580 FOR H=PM+64 TO PM+128:POKE H,255:N 
EHT H 

590 POKE 53277,3:POKE 54279,PM/256-4:P 
OKE 623,1:POKE 53256,3:POSITION 2,12:P 
OKE 559,62 

600 OPEN ttl, 4, O, "K : " : ? "++++SKILL - @H 
PERT OR BEGINNER";:GET ttl,K:IF K<>69 A 
ND K<>66 THEN CLOSE ttl:? "+":GOTO 600 
610 ? "IS":POKE 559, O : POKE 704,2:P=188: 

SC=PEEK C885 +256*PEEKC8S5 :L = 1:H = 30:H1 = S 
C+472:LI=10:RL = 7 

620 MO1 = 4:MD2=12:Q = 1:S T = 2 3:TS = 15:POKE 
82, O 

630 POKE 756,CHS/256:GOSUB 1870 

640 POSITION 4,3:? 1 + + + + ++EI!I^ 

Opposition 1,6:? "sc0re=o+++++++++liu 

ES=10++++++++++LEUEL=1" 


650 POSITION 1,12:? "TREASURE5=0" 

660 FOR Y = 18 TO 21:POSITION G,Y:? "<<< 

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<" 

■■heht y 

670 POSITION 27,3:? "??????????":POSIT 

ION 27,12:? "??????????" 

680 FOR R = 4 TO 11:POSITION 27,R:? "?": 

POSITION 36,R:? "?":NEKT R 

690 POSITION 5,IS:? "1 SHDRD 3 MACE 
5 L.BOLT ":POSITION 5,20:? "2 AKE 

4 KNIFE 6 FIREBALL" 

700 POSITION 14,3:? "GGGGGGGGGGG":POSI 
TION 14,13:? "GGGGGGGGGGG":FOR R=4 TO 
12:POSITION 14,R:? "G":POSITION 24,R 

710 ? "G":NEKT R:FOR R = 4 TO 6:POSITION 

15,R:? "<<< <<<":POSITION 15,R+6:? 

"<<<<<<<<<":NEKT R 

720 N=PEEKCK15:POKE HI,N+128:POSITION 

2,0:? .POKE 704,42*CK = 6S5+132*CK = 66 

5:POKE 55S,62:POKE 53248,160 
730 J = STICK C05 

740 IF NOT CCR=RL AND CCDMT<5 AND L>1 
5 OR CDMT <1 AND L = 15 5 5 THEN 760 
750 POSITION 4,16:? "YOU HILL HANDER L 
EUEL "JLJ" FOREVER":FOR MIAD=Q TO O ST 
EP O:NEKT MIAD 

760 IF J = 14 AND CN = 65 OR N = 67 OR N = 68 
OR N=88 OR N=SO OR N=83 OR N=124 OR N< 
115 THEN ST=1:A=7:A1=S:GOTO 820 
770 IF J=13 AND CN = 65 OR N=81 OR N=68 
OR N=6S OR N=87 OR N=83 OR N=124 OR N< 
115 THEN ST=-1:A=S:Al=7:GOTO 820 
780 IF J = 7 AND CN = 65 OR N = 81 OR N = 87 O 
R N=82 OR N=88 OR N=SO OR N=835 THEN S 
T=—1:A=20:Al=18:GOTO 1020 

7SO IF J = ll AND C N = 6 7 OR N = 68 OR N = 6S 

OR N=87 OR N=82 OR N=88 OR N=835 THEN 

ST=1:A=18:Al=20:GOTO 1020 

800 IF N=6 OR N=10 THEN 2060 

810 GOTO 730 

820 U=ST*3:POKE K1,N 

830 IF N=124 OR N=6 OR N=10 THEN 850 
840 GOSUB S50* CN = 6S OR N = 68 OR N = 675+S 
SO*CN=65 OR N=SO OR N=815+1000*CN=83 O 
R N=87 OR N=885 

850 A = A — U:A1 = A1 — V:H1=H1-5T*40:N = PEEK CH 
15:POKE HI,N+128 


860 

IF 

N = 6 5 

THEN 

1890 


870 

IF 

N = 68 

THEN 

1910 


880 

IF 

N = 6 7 

OR 

N 

= 69 

THEN 

1930 

SSO 

IF 

N = 8 7 

OR 

N 

= 88 

THEN 

1950 

900 

IF 

N = B1 

OR 

N 

= 90 

THEN 

1970 


9iO 

IF 

N 

=83 THEN 1990 


920 

IF 

N 

= 3 OR 

N = 11 

THEN 

2010 

930 

IF 

N 

= 6 OR 

N = 10 

THEN 

2060 

940 

POKE 

77,0! 

: GOTO 

730 



S50 FOR H=A TO A1 STEP ST:POSITION 15, 

H:? "<<<":POSITION 15,H+U:? " ":N 

EHT H 

S60 FOR H=A TO A1 STEP ST:POSITION 15, 

H+U:? "<<<":NEKT H:RETURN 

S70 GOTO 730 

S80 FOR H=A TO A1 STEP ST:POSITION 21, 

H:? "<<<":POSITION 18,H+U:? " ":N 

EHT H 

SSO FOR H=A TO A1 STEP ST:POSITION 21, 

H+U:? "<<<":NEKT H:RETURN 

100O FOR H=A TO A1 STEP ST:POSITION 15 
,H:? "<<< <<<":POSITION 15,H+U:? " 

ii - hekt H 

101O FOR'H=A TO A1 STEP ST:POSITION 15 
,H+U:? "<<< <<<":NEHT H:RETURN 

1020 U=ST*3:POKE K1,H 

1030 DQ=2050*CN=65 OR N=68 OR N=835+21 

00*CN=67 OR N=88 OR N = S05+21SO*tN=69 O 
R N=87 OR N=815 

1040 IF N<>82 THEN GOSUB 1140*CN=65 OR 
N=68 OR N=835+1160*CN=67 OR N=88 OR N 
= 905 +11SO* CN = 69 OR N = 87 OR N = 815 
1050 A = A-U:A1 = A1-V:H1 = H1-ST:N = PEEK CH15 
:POKE Kl,N+128 


1060 


IF 

N = 88 

THEN 2130 



107O 


IF 

N = 83 

THEN 2150 



1080 


IF 

N = 90 

OR 

N=67 THEN 2170 


lose 


IF 

N = 65 

OR 

N=68 THEN 2190 


1100 


IF 

N = 69 

OR 

N=81 THEN 2210 


me 


IF 

N = 8 7 

THEN 2230 



1120 


IF 

N = 3 OR 

N = 11 THEN 

2250 


1130 


POKE 77, 

O : 

GOTO 730 



1140 


FOR 

H= A 

TO 

A1 STEP 

ST:POSITION 

H+ 

u, 4 : 

7 

BS 

:POSITION H,4:? 

AS:NEKT H 


1150 


FOR 

H= A 

TO 

A1 STEP 

ST:POSITION 

H+ 

U, 4 : 

7 

AS 

: NEKT 

H 

: RETURN 



1160 


FOR 

H= A 

TO 

A1 STEP 

ST:POSITION 

H+ 

U, 4 : 

7 

BS C105 : 

POSITION H, 

4:? GS 1195 : 

NEK 

T H 
1170 


FOR 

H= A 

TO 

A1 STEP 

ST:POSITION 

H+ 

U, 4 : 

7 

GS 1195 : 

NEKT H:RETURN 


1180 


FOR 

H= A 

TO 

A1 STEP 

ST:POSITION 

H+ 

U, 7 : 

7- 

BS C105 : 

POSITION H, 

10:? GS C195 

: NE 


191 





K T H 

1130 FOR H=A TO A1 STEP ST : POSITION N+ 
U f 10:? G$C1?3:NEKT H :RETURN 

1200 QP=0:DM=0:GOTO 1210 

1210 Z=INTCRNDC05*25:M3=16+6*Z:MM3 = 8:D 
M=Q:MON = INT CRND C15*55 +2:KH = 13:KY = 8:THP 
=0:IF L = 5 THEN MON=l 

1220 TK = IHT CRND £03*73 +16:TY = IHT CRND C03 
*73+5:TY=TY+CTY=85:POSITION TK,TV:? TS 
CZ + 1,Z+1J 

1230 IF L = 1 AND Hl=SC+428 THEN POSITIO 

N 13,5:? "X" 

1240 IF L = 5 AND H1=SC+135 THEN POSITIO 

N 13,5:? "5" 

1250 POSITION M3,MM3:? MDN$CMON,MDN3:P 
OSITION KK , K Y : ? 

1260 POSITION 10,16:? "CHOOSE VOUR HEA 
PON I " J : GET ttl, OHEP : OHEP=OHEP~48 : POSITI 
ON 10,16:? " 

1270 IF OHEP>6 OR OHEP<l THEN 1260 
1280 MIAD=1 A 1 A 1:HP^OHPCMON,DHEP3:OHEP= 
OHEP*2-l 

1230 POSITION M3,MM3:? CON$CMON,MON3:B 
C = INT C2*RND CQ5 +15 :CB=INT C2*RND COJ +15 
1300 POSITION M3,MM3:? CON$CMON,MON5:B 
C = INT C2*RND C05 +15 :CB = INT C2*RND C05 +15 
1310 M3=M3+CBC=15*CM3<225-CBC=25*CM3>1 

65 

1320 MM3=MM3+ CCB = 15*CMM3<115 -CCB = 25 * CM 

M3 5- 5 5 

1330 POSITION HH,KV:? .HH=HH*JH 

1340 POSITION M3,MM3:? MDN$CMON,MON5 
1350 J=STICKC05 

1360 IF STRIG C05 = 0 OR JH=1 THEN 1480 


1370 IF J=14 
: K Y = K Y — 1 

THEN 

POSITION 

KK 

,KY:? " " 

1380 IF J=13 
:KY=KY+l 

THEN 

POSITION 

KK 

,KY:? " " 

1330 IF J = 7 
KK=KK+1 

THEN 

POSITION 

KK, 

KY ■ ? ■■ ■ ■ ■ 

1400 IF J=ll 
: K K = K K — 1 

THEN 

POSITION 

KK 

,KY:? " " 


1410 PE=PEEK CSC+KH+KY*405 :IF PE = 61 OR 
PE = 63 THEN SOUND O,18,lO,lO:DMT=DMT+1 A 
1:SOUND O,O,O,O:PT=PT+5:GOTO 1460 
1420 IF PE=3 THEN SOUND O,18,lO,lO:KEY 
=1^1:SOUND O,O,O,O:GOTO 1460 
1430 IF PE=5 AND KEV THEN POSITION 4,1 
6:? "YOU HAVE ESCAPED THE DUNGEON!!! 11 : 
FOR MIAD=0 TO O STEP O:NEHT MIAD 
1440 IF PE=5 THEN 1460 

1450 IF PE> O AND PE<>30 THEN SOUND 0,1 
O,lOO,lO:LI=LI-1:GOTO 1660 
1460 POSITION KH,KY:? ">" 

1470 GOTO 1230 
1480 J=STICKC05 

1430 HEP=OHEP:PE=PEEKCSC+KH+KY*4Q5:IF 

PE> O AND PE030 THEN SOUND 0,10,100,10 

:LI=LI-1:GOTO 1660 

1500 IF OHEP> 6 THEN 1550 

1510 JH=0 

1520 IF J=7 AND KK<22 THEN HH=KK+1:GOT 
O 1620 

1530 IF J=ll AND KH>16 THEN HEP=HEP+1: 

HK=KK~1:GOTO 1620 

1540 GOTO 1230 

1550 IF JH=1 THEN 1530 

1560 IF J=7 AND KK<22 THEN RA=1:HK=KK: 
GOTO 1610 

1570 IF J=ll AND KH>16 THEN RA=-1:HH=K 
H:GOTO 1610 
1580 GOTO 1230 

1530 PE1=PEEK CSC+HH+KY*405 :IF PE1=61 O 
R PE1=63 OR PE1=53 THEN HH = 0:JH=0:GOTO 
1230 

1600 IF PE1> O THEN SOUND O,16,14,lO:JH 
=0:THP=THP+HP*1 A 1:5DUHD 0,0,0,0:IF THP 
=30 THEN PT=PT+10:GOTO 1660 
1610 HEP=HEP+CRA=—15:HH=HH+RA*CHH<235* 
CHH>155 :JH= CHH <225* CHX>165 

1620 PE1 = PEEK CSC+HX+KY*405 :IF PE1 = 61 O 
R PE1=63 OR PE1=53 THEN HX=0:JH=Q:GOTO 
1230 

1630 IF PE1> O THEN SOUND O,16,14,lO:JH 
=0:THP=THP+HP*1 A 1:SOUND 0,0,0,0:IF THP 
=30 THEN PT=PT+10:GOTO 1660 
1640 POSITION HK,KY:? HEP$CHEP,HEP5 
1650 GOTO 1230 

1660 FOR H=5 TO 11:POSITION 16,H:? " 

":NEKT H:POSITION 7,8:? LI;.SO 

UND O,O,O,O:CR=CR+1:POSITION 7,6:? PT 
1670 POSITION 11,12:? DMT 

1680 IF LI<1 THEN POSITION 15,15:? "GA 
ME OUER":POSITION 7,16:? "PRESS BUTTON 
TO PLAY AGAIN":GOTO 2400 
1630 J=STICKC05:UP=PEEKCX1-405:DO=PEEK 
CK1+405:FO=PEEKCK1+15:BA=PEEKCK1-15 
1700 IF J=14 AND CUP=65 OR UP=81 OR UP 
=68 OR UP=63 OR UP=87 OR UP=83 OR UP=1 
245 THEN OH=l:ST=1:GOTO 17SO 


1710 IF J=13 AND CDO=65 OR DO=67 OR DO 

=68 OR DO=88 OR DO=3Q OR DO=83 OR DO=l 

245 THEN OH=2:ST=-1:GOTO 17SO 

1720 IF J=ll AND CBA=65 OR BA=81 OR BA 

=87 OR BA=82 OR BA=88 OR BA=30 OR BA=8 

35 THEN OH=3:ST=1:GOTO 1810 

1730 IF J = 7 AND CFO = 67 OR FO = 68 OR FO = 

63 OR F O = 8 7 OR FO = 82 OR FO = 88 OR FO = 83 

5 THEN OH=4:ST=-1:GOTO 1810 

1740 GOTO 1630 

1750 IF OH=l THEN A=4:Al=ll 

1760 IF OH=2 THEN A=12:Al=5 

1770 POSITION 16,Al+ST:? " ":FOR 

H=A TO A1 STEP ST:POSITION 15,H:? "<< 

< <<<":POSITION 15,H+ST 

1780 ? "<<<<<<<<<":NEKT H 

1730 POSITION 15,Al+ST:? "<<< <<<" 

180O U = 3»ST:A = 7»COH=15 +3»COH=25 :A1=3*C 
OH=15+7*COH=25:POKE HI,11:GOTO 850 
1810 IF OH=3 THEN A=15:Al=22 

1820 IF OH=4 THEN A=23:Al=16 

1830 POSITION Al+ST,4:? HS 

1840 FOR H=A TO A1 STEP ST:POSITION H, 
4 : ? AS 

1850 POSITION H+ST,4:? G$:NEKT HlPDSIT 
ION Al+ST,7:? BSC135 

I860 U=3*ST:A=18*COH=35+20*C0H=45:Al=2 
Q*COH=35+18*COH=45:POKE HI,11:GOTO 105 


O 

1870 RESTORE 2300+CL-15*20 

1880 FOR P=SC+188 TO SC+468 STEP 40:FO 
R RT=P TO P+7:READ M:POKE RT,M:NEKT RT 
:NEKT P:RETURN 


1830 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

21 

, H: ? 

.NEKT 

H 





1300 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

21 

, H: ? 

"<<<":POSITION 

21 , 

H+U 

■ -7 II lla 

NEK 

T H: 

GOTO 730 






1310 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

.NEKT 

H 





1320 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

"<<<":POSITION 

15, 

H+U 

■ -7 II lla 

NEK 

T H: 

GOTO 730 






1330 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

.NEKT 

H 





1340 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

"<<<<<<":POSITION 

15, 

H+U : ? " 

lla 

NEKT 

H: GOTO 730 






1350 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

II I 

1 :NEKT H 




1360 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

"<<<<<<<<<■ 

1 :POSITION 

15,H+U:? 

1 1 


":NEKT H: 

IGOTO 730 



1370 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

21 

, H: ? 

.NEKT 

H 





1380 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

18 

, H: ? 

"<<<<<<":POSITION 

21 , 

H+U:? " 

1 1 ■ 

NEKT 

H: GOTO 730 






1330 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

II I 

1 :NEKT H 




2000 

FOR H=A TO 

A1 

STEP 

ST 

:POSITION 

15 

, H: ? 

"<<< <<<■ 

1 :POSITION 

15,H+U:? 

1 1 


":NEKT Hi 

IGOTO 730 




2010 POSITION 15,A:? "<<<<<<<<<" 

2020 A1 = 11*C5T = 15 +5*CST = -15 
2030 FOR H=A TO A1 STEP ST:POSITION 15 
,H:? "< <":POSITION 15,H+ST:? "< 

<<<<<<<<":NEKT H 

2040 POSITION 15,A:? "<<<<<<<<<":IF N= 
3 THEN 0P=0:DM=0:GOTO 1210 
2050 GOTO 1630 

2060 IF CL>1 AND DMT<55 OR CL=1 AND DM 
T <15 THEN 730 

2070 CR=Q:PT=PT+50:IF N=6 THEN L=L—1:D 
MT=Q:N=iO:GOTO 2100 

2080 IF N = 10 THEN L = L + 1:DMT = 0:N = 6 
2030 FOR S=16 TO 32 STEP 4:SOUND Q,S,1 
4,10:DL=EA*EA*EA:SOUND O,O,O,O:Efl=l A 6: 
NEKT S:GOTO 2110 

2110 RL = 7* CL = 15 +3* CL = 25 +15* CL = 35 +15* CL 


= 45 +12* CL = 55 

:POSITION 7, 

lO 

: ? L:POSITIO 

N 11 

,12:? "O 

11 






2120 

GOSUB 1870 1 

: GOTO 730 




2130 

FOR H=A 

TO 

A1 

STEP 

ST 

: POSITION 

H, 

4 : ? 

BS C135 :NEKT 

H 





2140 

FOR H=A 

TO 

A1 

STEP 

ST 

: POSITION 

H+ 

U, 4 : 

? BSC135 

:POSITION H, 

4 : 

? GS C135 : 

NEK 

T H: 

GOTO 730 







2150 

FOR H=A 

TO 

A1 

STEP 

ST 

: POSITION 

H, 

4 : ? 

BS : NEKT 

H 






2160 

FOR H=A 

TO 

A1 

STEP 

ST 

: POSITION 

H+ 


0,4:? BS:POSITION H,4:? AS:NEHT H:GOTO 
730 

2170 FOR H=A TO A1 STEP ST:POSITION H, 

4:? BS C135 :NEKT H 

2180 FOR H=A TO A1 STEP ST:POSITION H+ 

0,4:? BSC135:POSITION H,4:? FS:NEKT H: 
GOTO 730 

2130 FOR H=A TO A1 STEP ST:POSITION H, 

4:? BS:NEKT H 


192 



220O 

FOR 

H= A 

TO 

A1 

STEP 

ST : 

POSITION 

N+ 

U, 4 : 

? 8$ : 

! POSITION 

H, 4 : ? 

G$ : 

NEKT H:GOTO 

730 

2210 

FOR 

H= A 

TO 

A1 

STEP 

ST : 

POSITION 

H, 

7 : ? 

B$(105:NEKT 

U 





2220 

FOR 

H= A 

TO 

A1 

STEP 

ST : 

POSITION 

N+ 

U, R : 

? B$(105: 

POSITION U 

, R : ? 

F$:NEKT 

H: 

GOTO 

730 








2230 

FOR 

H= A 

TO 

A1 

STEP 

ST : 

POSITION 

H, 

10 : ? 

B$(185:NEKT 

H 





2240 

FOR 

H= A 

TO 

A1 

STEP 

ST : 

POSITION 

N+ 

U, 10 

:? B$(185 

:POSITION 

H, 10 

:? GSC19J 

: N 


EHT H:GOTO 739 

2250 POSITION Aj4:? G$ 

2260 fll=22*C5T=l)+16*tST=-l) 

2270 FOR H=A TO A1 STEP ST:POSITION H, 
4 : ? HS 

2200 POSITION W+ST, 4 ! ? G$:NEKT NlPOSIT 
ION A,4:? G$:IF N=3 THEN OP=0:DM=0:GOT 
O 1210 

2250 GOTO 1600 

2300 DATA Oj3j 87,82,87,02j 82,69,81,G8 f 
65,69,90,3j69,124 ,124,lO,124,124j81,02 
,80,3,90,08,67,3,60,01,02,69,01,07 
2310 DATA 82,69,96,67,81,67,90,83,82,8 
8,82,87,80,69,3,124,01,3,07,3,69,124,9 
O,88,88,82,GO,02,GO,67 

2320 DATA 81,87,3,81,3,87,87,69,65,68, 
124,124,65,68,3,124,124,6,124,65,3,90, 
83,67,3,67,65,68,65,87,67,3,90,82 


2330 

DATA 

67 

J 

80 

, 3, 

124, 

81 

J 

68,81 

, 87, 

82, 

8 

7,88 

,67,124, 

10, 

124 

J 

3,82, 

3 

,68,81,68 

, 124 

, 50, 

88,82, 

88 

J 

88 

, 67 

J 

50, 

67 

J 





2340 

DATA 

81 

J 

3, 

67, 

3 

, 87 

, 87 

,87,3 

, 18, 

65, 

8 

3,87 

,67,3, 

67 

J 

124,65 

, 83 

, 3 

J 

88,68 

, 1Z4 

, 81 

J 

3,3, 

67,124 

, 81 

, 3 

, 68 

J 

65, 

68 

J 

0,81, 

88,68 


2350 

DATA 

80 

J 

83 

, 83 

J 

68, 

3, 

83,87, 

3,68 

,3, 

6 

7,6, 

0,124, 

80 

J 

83 

, 88 

J 

67, 

81 

J 

68,3, 

88,3 

, 88 

J 


3,82,67,3 

2360 DATA 81,3,69,3,81,3,87,69,6,90,83 

, 83,88,67,65,3,90,3,67,65,82,3 , 90,69,8 
1,69,81,3,69,90,87,3,3,68,65,67,124 
2370 DATA 81,88,68,65,67,3,87,3,88,87, 

3,10,81,67,124,65,69,65,68,90,3,82,3,6 

7.80.3.67 

2380 DATA 81,87,82,82,82,82,68,3,80,3, 

81,3,68,3,80,67,81,67,124,81,83,88,82, 
3,3,81,68,3,124,3,82,67,80,88,67,65 
2380 DATA 67,124,81,3,81,68,O,80,68,65 

,88,68,6,65,3,81,3,65,3,124,80,67,80,8 

8.82.88.82.67 

240O IF STRIG(O5<>0 THEN 2400 

2410 POKE 704,PEEKC7101:POKE 53277,0:R 

UN 


193 



NIGHT RESCUE 


lee GOTO 870 

HO POKE 560jZ:POKE 561,D:5ETCOLOR 0,1 

2 ji 8 : SET COLOR 1,13, 16 : 5ETCOLOR 2,3,2 
120 5ETCDLDR 3,8,4:5ETCOLOR 4,Z,Z:LI=5 
:RA=1:SP=11:POKE 756,CH/256:POKE 752,1 


130 FOR AD=ND TO HD+33:READ P:POKE AD, 
P:NEXT AD:POKE HD + 26,PEEK (6603 :POKE HD 
+27,PEEKC6613:POKE 82,Z:POKE HD+7,D 
140 POKE HD+12,D+l:POKE ND+18,D+6:POKE 
HD+21,D+7:POKE ND+24,D+8:FOR H=ND+64 
TO HD+75:READ A:POKE H ,A:NEXT H 
150 POKE 656,Z:POKE 657,15:? "SCORE O 

I I 

160 POKE 656,2:FOR JM=Z TO IS:POKE 657 
,JH:? " "J:NEHT JH 

170 POKE 656,2:POKE 657,7:? "11111" 

180 FOR K=M TO ND + 4S5 : H = H + INT ClOJtRND CO 
3 +53 :POKE H ,48:POKE H+l,4S:POKE H+2,54 
:NEXT K 

iso PE=Q:RESTORE 6SO:FOR X=ND+1580 TO 
HD+2307:READ A:POKE X,A:HEXT H 
200 SP=SP+l:POKE IS,O:POKE 20,0 
210 FOR M=1 TO 3:SOUND H,Z,Z,Z:NEXT H: 
POKE 55S,Z:POKE 77,Z:POKE 53278,Z:IF L 
I = Z THEN 470 

220 POKE 656,2:POKE 657,SP:? .. . . 

-1 

230 POKE ND+11,PE:POKE ND+17,PE:POKE N 
D+20,PE:POKE ND+23,PE 

240 POKE PLK,121:POKE PLV,85:POKE PLK+ 
1,32 : POKE PLV+1, Z: POKE PLK+2,1S2 : POKE 
PLV+2,Z:POKE PLK+3,1S2:POKE PLV+3,66 
250 PH=1S2:P Y = 6 6:BH=121:BY = 85:BY A = 0.25 
SPOKE 55S,62:SOUND 1,180,2,1:SOUND 2,1 
81,Z,1:SOUND 3,182,2,2 

260 IF STICK C03=11 AND NOT STRIGC03 T 
HEN BH=BH-CBK>10S3:POKE PLH,BH:GOTO 32 
O 

270 IF STICK C03 =7 AND NOT STRIGC03 TH 
EN BH=BH+CBK<1333:POKE PLH,BH:GOTO 320 


280 IF STICK C03 =11 AND PE>0 THEN POKE 
756,CH1/256:PE=PE~1:PH=PH+4*tPH<=1883: 
GOTO 320 

2SO IF STICK C03 =7 AND PE<224 THEN POKE 
756,CH/256:PE=PE+1:PH=PH"4*tPH>=523:G 
OTO 320 

300 IF STICK C03 =14 THEN BYA=BYA-CBYA>- 
53 

310 IF STICK C03 =13 THEN BYA=BYA+CBYA<5 
3 

320 POKE 53278,Z 

330 POKE ND+11,PE:POKE ND+17,PE:POKE N 
D+20,PE:POKE ND+23,PE 

340 TI = INT C(PEEKtlS3*256 + PEEKC2Q3 3 /603 
:IF TI>300-SK*10 THEN POKE IS,O:POKE 2 
O,O:GOTO 400 

350 BY=BY+BYA:POKE PLY,BY:IF PY<60 OR 
PY> SO THEN RA = —RA 

360 PH=PH-CSK+33*CPH<1S33:PY=2*RA+SK*R 
A+PY:POKE PLH+3,PH:POKE PLY+3,PY:IF PH 
<48 THEN PH=1S2 

370 IF PEEKC532523>0 OR PEEKC532603>O 

THEN 3SO 

380 GOTO 260 

3SO IF PEEKC532523=2 OR PEEKC532523=8 

THEN 420 

400 LI=LI-l:FOR EA=1 TO 15 STEP O.5:SO 

UND Z,200+EA,4,16-EA:NEHT EA:SOUND Z,Z 
,Z,Z:GOTO 210 
410 GOTO 260 

420 R=D+8-CBY<1313:IF BY<115 THEN R=D+ 

6 

430 MP = PE + INT C tBH —453^4 + 0.53 +256*R:IF 
PEEK CMP3 =131 THEN POKE HP,O:SC = SC + 100: 
GOTO 460 

440 IF PEEK CMP3 =11 AND PE = 224 AND BH = 1 
33 AND BY>85 THEN FOR H=1 TO 3:SOUND H 
,0,0,0:NEHT H:GOTO 1070 
450 GOTO 400 

460 FOR H=1 TO lO:SOUND Z,lO,lO,lO:NEK 
T H:SOUND Z,Z,Z,Z:POKE 656,Z:POKE 657, 
21:? SC;:GOTO 268 

470 POKE 656,2:POKE 657,SP:? .POKE 

55S,62:IF SC>HS THEN HS=SC 

480 POKE 656,1 : POKE 657,2:? " I i i :1 

9"i HS; : GOTO 1050 

4SO DATA 56,124,124,124,56,56,16,56,0, 
0,0,0,48,252,48,204,52,28,52,28,255,23 
5,255,235,0,0,0,0,255,235,255,235,255 
500 DATA 235,255,235,255,235,255,235,0 
,0,0,0,245,245,215,215,245,245,215,215 
,245,245,215,215,85,40,85,40,255,255 
510 DATA 255,40,245,245,215,215,0,0,0, 
0,O,0,O,170,255,255,255,255,2,11,47,IS 

1.255.255.255.255.128.224.248.254.255 
520 DATA 255,255,255,170,255,255,255,2 

55.255.255.255.130.226.251.255.255.255 
,255,255,130,235,255,255,255,255,255 


530 DATA 255,130,13S,23S,255,255,255,2 
55,255,0,0,0,0,0,0,40,ISO 

540 DATA 255,255,255,255,215,105,105,2 

15,1S2,1S2,1S2,1S2,1S2,1S2,1S2,64,255, 

1S2,1S2,255,255,234,234,255 

550 DATA 255,3,3,255,255,171,171,255,2 

S,25,21,245,246,240,1S2,128,2,3,5,6,7, 

23,31,30,0,0,64,64,64,80 

560 DATA 208,208,208,144,80,124,124,60 
,12,8,0,0,0,0,0,15,63,4,0,0,0,0,21,255 
,255,68,0,0,0,0,170,240,252,64,255,0 


570 

DATA 

21 

, 41 

JF 

41, 

21,1 

JP 

lO 

,255,128, 

80, 

8 

4,85 

, 85, 

84, 

170 

■P 

1S2 

JP 

o, o 

JP 

3 

JP 

87,64,0,0 




580 

DATA 

0 , 

0,0 

J 

0i 2 

JP 

11, 

47 

JP 

1S1,0,0,0 

J 

0, 

1 

28,224,248, 

254 












5SO 

DATA 

3, 

0,0 

JF 

1S2 

JF 

213 

JP 

1 

J 

0,0,255,2 

J 

5, 

2 

1,85 

, 85, 

21, 

170 

1 

255 

JP 

O, 84 

JF 

104,104,84 

JP 

64 

JF 

160 















600 

DATA 

162,3 

■P 

18S 

■P 

244 

■P 

6 

■P 

240,8S,56 

■P 

221 


,240,6,240,83,141,254,6,106,141,255,6, 
142,253,6,24,16S,O,lOS,253,6,24,lOS 
610 DATA 252,6,133,204,133,206,18S,240 
,6,133,203,173,254,6,133,205,18S,248,6 
,170,232,46,255,6,144,16,168,177 
620 DATA 203,145,205,16S,O,145,203,136 
,202,208,244,76,87,6,160,0,177,203,145 
,205,16S,0,145,203,200,202,208,244 
630 DATA 174,253,6,173,254,6,157,240,6 
,18S,236,6,240,48,133,203,24,138,141,2 
53,6,lOS,235,6,133,204,24,173,253 
640 DATA 6,lOS,252,6,133,206,18S, 240,6 
,133,205,18S,248,6,170,160,0,177,203,1 
45,205,200,202,208,248,174,253,6,16S 
650 DATA 0,157,236,6,202,48,3,76,2,6,7 
6,SB,228,0,O,104,16S,7,162,6,160,0,32, 
S2,228,S6 

660 DATA 28,62,127,127,127,127,62,28,2 
8,8,28,28,S,25,127,127,255,255,24,24,8 
, 8 


670 DATA 


112 ,112,112, 

112 ,112, 

66,50, 

50, 

112 ,112, 

68 , 

O, 51 

,112,112,112,6S,0,56 

, 6S 

,O,57,6S 


0 i 

58 





680 DATA 


66 

, 96, 

63,6,6 

,6,65,O, 

50,46, 

41, 

3S,40,52 


0 i 

50,37,51,35,53,37 



6 SO DATA 


0 i 

0 i0i 

0,6,5, 

131,0,0, 

O,131, 

5,6 

, O,O,O,O 


0 i 

0 i0i 

0 ,0,0, 

0,5,5,4, 

4,4,5, 

5, O 

,O,O,O,O 


0 i 

0 i0i 

0 ,0,0, 

9, S,S,S, 

9,S,S, 

S 

700 DATA 


0 i 

0 i0i 

0,0,9, 

131,9,0, 

0 ,0,0, 

e, e 

, O,O,O,O 


0 i 

4,4, 

4,0,131,0,0,0, 

0 ,0,0, 

0,9 

,131,O,O 


0 i 

0i7, 

6 ,6,0, 

10 ,10,8, 

8 ,8,8, 

io 

710 DATA 


lO 

, 10i 

10 ,10, 

8 ,8,8,8, 

8 ,8,8, 

8,1 

0 ,10,10, 

10 i 

8 , lO 

,10,10 

,8,8,8,8 

, 8 , lO , 

o, o 

,0,0,0,0 

J 

0 i 

0 i0i 

0 ,0,0, 

0 ,0,0,0, 

0 ,0,0 


720 DATA 


0 i 

0 i0i 

0 ,6,6, 

4,0,0,0, 

O,131, 

0,4 

,O,131,O 


0 i 

0 i0i 

0 ,0,0, 

0,0,131, 

9,131, 

O, O 

,0,0,0,0 


0 i 

0 i0i 

0 ,0,0, 

131,O,S, 

9,0,0, 

O 

730 DATA 


0 i 

0 i0i 

131,S, 

S,S,131, 

0 ,0,0, 

55, 

11,56,0, 

0 

, 0 

,0,0 

,0,0,0 

,0,0,0,0 

,0,0,0 

, 0, 

0,2S,0,0 


0 i 

0 i0i 

0 ,0,0, 

0 , O , O , O 



740 DATA 


0 i 

0 i0i 

2S,0,0 

,0,0,0,O 

,0,0,0 

, 2S 

,0,0,0,0 


0 i 

0 i0i 

0,0,36 

, 38,0,6, 

6,6,5, 

131 

,5,6,6,6 


0 i 

0 i0i 

0 ,0,0, 

O, 131 



750 DATA 


0 i 

0 i0i 

5,5,6, 

6 ,6,5,5, 

0 ,0,0, 

0,1 

31,131,O 


0 i 

0 i0i 

O,131, 

131,131, 

S,S,131,1 

31,131 
760 DATA 


0 i 

0 i0i 

0 i 0 i 9 , 

S,S,O,32 

, 33 , O , 

O, O 

,36,38,0 


131,5, 

6 ,6,6, 

6,6,131, 

0,36,38,0 

,O,131,S 


9, 

O, O 





770 DATA 


0 i 

131, 

0 ,0,0, 

0 ,0,0,0, 

131,O, 

O, O 

,O,131,O 


0 i 

O, lO 

,10,10 

, 8,8, O, lO, O, O, 

0,1 

31,0,0,0 


0 i 

O, lO 

,10,0, 

O,131,O, 

0,7,131 

780 DATA 


0 i 

0 i0i 

0 ,0,0, 

0 ,0,0,0, 

36,38, 

O, O 

,0,0,0,0 

J 

0i 

6,6, 

6,4,0, 

0 ,0,6, 4 , 

6,6,6, 

131 

,0,0,32, 

33, 

0i0i 

0 i 0 i 9 , 

S,S,O,36 

,38,0 


7SO DATA 


36 

, 38, 

0 ,0,0, 

O , O , O , S , 

9,S,S, 

O, O 

,36,38,0 


131,S, 

9,131, 

S,S,131, 

0,0,9, 

6, S 

,0,0,32, 

33, 

0,0, 

0 ,0,0, 

36,38,0 



800 DATA 


55 

, 11, 

12,15, 

26,30,13 

, 56,131,5 

5,11,11, 

12, 

28,27,13,11,56,131 

,55,12 

, 30 


,13,56,131,55,11,12,13,12,26 


810 DATA 30,26,13,11,56,131,55,11,56,0 
,34,42,131,6,6,6,6,6,6,6,6,6,131,43,44 
,45,131,55,12,15,13,56,131,5,5,6,6,6 


820 

DATA 

5,5, 

131, 

55, 

11 


12 

, 15, 

15 

, 13, 

11 


56, 

131,O, 

9, S, 

9, S, 

9, S 

, 9 


9, 

131, 

43 

, 44, 

45 


0,9 

, 9, S, O 

, 31, 

131 










830 

DATA 

O,131,O, 

34, 

42 


0, 

6,6, 

6, 

6,6, 

6, 

6 

,6, 

131,34 

, 42, 

131, 

0,9 

, 9 


9, 

O,131, 

7,8, 

8, 

7 

, 0, 

131,7, 

7,8, 

8,7, 

131 

, 7 


7, 

8,7, 

0, 

131 



840 

DATA 

131, 

O,131,O 

, 0 


131,131, 

0,7, 

7, 

8 

,8, 

8,7,0, 

131, 

7,7, 

7,7 

, 8 

, 

8, 

8,8, 

8, 

7,131, 

4 


3,44,45,131,43,44,45,0,34,42,131,0,43 
850 DATA 44,45,131,0,6,6,6,6,0,131,0,6 
, 6,6,6,6,6,6,O,31,43,44,45,131,O,S,S,S 
,0,34,42,131,34,42,0,43,44,45,0,131 
860 DATA S,S,S,S,131,O,34,42,131,S, S, S 
,S,S,S,S,131,12,15,6,15,13,O,31,131,13 
1,43,44,45,131,34,42,131,34,42,131 
870 GRAPHICS 2:POKE 16,64:POKE 53774,6 

4:DL = PEEK C5603 +256*PEEKC5613 :D = PEEK CIO 
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63 -14: ND=D*256 : SETCOLOR Z f e f 6 
880 M=ND+256:M1=ND+511:Z=0:POKE DL+IO, 

6:POKE DL+llj6:POKE DL+IZ.elPDKE DL+I3 
, 2 

880 SETCDLDR Oj8,4:POSITION 4,4:? tt6j M 
NIGHT RESCUE 11 : POSITION 5,8:? »6; M ANSCH 

UETZ/NEISGERBER/flHSCHUE TZ 11 _ 

800 POSITION 4,6:? tt6 : : F 

OR JH=M TO Ml:POKE JH,O:NEXT JH 
810 DIM CHS C333 : CH$ = M ! C3*+, —^ : J < = 

> ?GABDFJKLMPQUHK" : CH=(PEEK C1663-41*256 
:FOR I—O TO 543 

820 POKE CH + I,PEEK C57344 + I1 :NEXT I:FOR 
1 = 1 TO 33:CP = CH+ tASC tCH$ til1-321*8:FO 
R J = Q TO 7:READ A:POKE CP+J,A 
830 NEHT J:NEKT I:CH1=(PEEK C1D61—161*2 
56:PM=CH1:GOSUB 880:IF PEEKCCHl+lGl=12 
4 THEN 860 

840 FOR 1=0 TO 543:POKE CH1+I,PEEKCCH+ 
13:NEHT I 

850 FOR H=384 TO 388:READ A:POKE CH1+H 
,A:NEHT H:FOR K=432 TO 438:READ A:POKE 
CH1+H,A:NEHT H 

860 P OSITION 0 , 6 :? tt 6j M rnS start EHM 

HJiH.T 1 

870 IF PEEK£532783<>6 THEN 870 
880 RESTORE 670:POKE 558,0:G0T0 HO 
880 RESTORE 600:FOR 1=1536 TO 1706:REA 
D A:POKE I,A:NEHT I:FOR 1=1774 TO 1787 
:POKE I,O:NEHT I 

100O FOR I=PM+1023 TO PM+2047:POKE 1,0 
:NEHT I:FOR I=PM+1025 TO PM+1Q36:READ 
A:POKE I,A:NEHT I 

101O FOR I=PM+1782 TO PM+1801:READ A:P 
OKE I,A:NEKT I:FOR I=PM+1281 TO PM+178 

1 ■ PflKF T JR 1 : ■ HFHT T 

1020 POKE 704,134:POKE 705,0:P0KE 706, 

O:POKE 707,20:PLK=53248:PLV=17SO:PLL=1 
784:POKE 558,62:POKE 623,1 

1030 POKE 1788,PM/256+4:POKE 53277,3:P 
OKE 54278,PM/256:H=USRC16863:POKE PLL, 
12:POKE PLL+1,255:POKE PLL+2,255 
1040 POKE PLL+3,lO:POKE 53257,3:POKE 5 
3258,3:POKE 53258,1:RESTORE 580:RETURN 

1050 IF PEEK£532783<>6 THEN 1050 
1060 LI=5:SK=0:RA=1:SP=11:SC=0:POKE 55 
8,O:FOR JH=M TO Ml:POKE JH,O:NEHT JH:P 
OKE 756,CH/256:GOTO ISO 

1070 SOUND 1,250,lO,lO:SOUND 2,254,10, 
10:F0R H=1 TO 20:NEHT H:SOUND 1,0,0,0: 

SOUND 2,0,0,0 

1080 SK=SK+1:SC=SC+SK*C10O0—TI3:POKE 6 
56,O:POKE 657,21:? SC;:FOR EA=M TO ND+ 
455:POKE EA,O:NEKT EA:POKE 558,0 
1080 FOR JH=ND+456 TO Ml:POKE JH,O:NEK 
T JH:GOTO 180 
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OVERFLOW 


1G REM DUERFLDH 

2G REM BY AHSCHUETZ/HEISGERBER/ANSCHUE 
TZ 

30 REM CO 1985, ANTIC PUBLISHING 
40 TUNL=SO:HATR=148:MT=D 
50 POKE 106,PEEK (7401 

60 MEM=PEEK(1061 :DL= tMEM-53 *256:CH=CME 
M-4)*256:JW=MEM-12:EA=MEM—11:RA=tMEM-9 
3*256:5=CMEM—73 *256 

70 GRAPHICS 2:POKE 709,50:DIM QC1S3,A$ 
C463,B$C163:POKE 755,O:POSITION 6,4:? 
06J"OUERFLOH" 

SO POKE 710,30 : POKE 712,30:? :? 11 A 

nschuetz/Heisgerber/Anschuetz 11 : GOTO 41 
G 

90 POKE 70S,TUNL:POKE 710,HATR:POKE 71 
2,O:POKE 707,TUNL 

lOO POKE 89,JH:POKE 756,MEM-4:POKE 559 
,62:POKE 560,0:POKE 561,MEM-5:POKE 532 
51,120:POKE 53248,123 

110 ? :? :? :? :FOR H = 1 TO lO:QCH3=INT 

CRND C03 *2 3 *2 — 1:NEKT H:SC=0:POKE 656,0: 
POKE 657,16:? "OUERFLOH" 

120 POKE 657,4:? "SCORE:O "J:POKE 6 

57,26:? "HIGH:";HC: :YH=33:POKE 88, VH:P 
OSITION 0,0:? 06;ASC17,3O3 

130 OL=DL+l:C=G:FOR H=DL+4 TO DL + 31 ST 
EP 3:Y=INT CRND CG3*113 +101:Y = Y + CV/2<>IN 
T CY/23) :POKE H,Y:NEKT K 

140 C = C + 1:GL=GL+3:POKE QL,PEEKCQL3+ QCC 
3 

ISO POKE 53278,G:IF QL>DL+28 THEN QL = D 
L+l:C=0 

160 ST=STICKCG3:IF ST=14 THEN YH=YH-16 
*CYH>333:POKE 88,YH:POSITION 0,0:? 06J 
AS C17,463 

170 POKE 70S,TUNL:POKE 710,HATR 

ISO IF ST=13 THEN YH =YH+16*CYH<1773:PO 

KE 88,YH-16:POSITION 0,0:? 06;A$C1,303 

ISO IF ST=7 AND J=G THEN PLH=133:PLY=Y 
H+3:J=4:POKE 8S,EA:POKE 88,YH+3:POSITI 
ON 0,0:? 06;BSCl,83:POKE 89,JH 
200 IF S T = 11 AND J — O THEN PLH=115:PLY= 
YH+3:J=-4:POKE 8S,EA:POKE 88,YH+3:POSI 
TION 0,0:? 06;BSCS,163:POKE 89,JH 
210 IF PEEKC532553>3 THEN POKE 7G7,HAT 
R:GOTO 360 

220 IF JOG THEN 240 
230 GOTO 140 

240 IF PEEKC532533>3 THEN 27G 

250 POKE 5324S,PLH:PLH=PLH+J 

260 IF PEEKC532533<4 THEN 2SO 

270 HQ = CPLY-203/16:IF SGN CQCHG3 3 <>SGN C 

J3 THEN 330 

280 SOUND O,lOO,lO,lO:5C=5C+iO:QCHQ3=- 
QCHG3:POKE 657,lO:? SC;:GOTO 310 
2SO IF PLH> 200 OR PLH<48 THEN 330 
300 GOTO 140 

310 POKE 77,G:IF SC=250 THEN SOUND 0,6 
O,lO,12:GOTO 350 

320 IF SC=5GO THEN SOUND O,60,lO,12:PO 
KE 5325S,3:POKE 53251,112:FOR H = 1 TO 1 
OO:NEKT H 

330 POKE 5324S,O:J=G:POKE 8S,EA:POKE 8 
8 ,PLY:POSITION 0,0:? 06;AS Cl,83 :POKE 8 
S,JH:POKE 53278,0 
340 SOUND O,O,O,O:GOTO 140 

350 FOR H = 1 TO lO:QCH3= QCH3*2:NEKT H:F 
OR H=DL+4 TO DL+31 STEP 3:Y=PEEKCH3:PO 
KE K,Y+CY/2=INTCY/233:NEKT H:GOTO 330 
360 J=0:POKE 656,3:POKE 657,S:? "PRESS 
<ST ART) TO BEGIN"; :IF SC>HC THEN HC = S 
C 

370 YC=YC+ CYC<2553 —255* CYC = 2553 :POKE 7 
04,YC:IF PEEKC5327S3<>6 THEN 370 
380 FOR H=DL+4 TO DL+31 STEP 3:POKE H, 
108:NEKT H:POKE 8S,EA:POKE 88,PLY:POSI 
TION 0,0:? 06;AS Cl,83 :POKE 53251,120 
3SO POKE 704,1S8 

400 POKE 89,JH:POKE 88,YH:POSITION 0,0 
:? 06;" ":POKE 707,TUNL: 

POKE 5324S,O:POKE 5325S,l:GOTO HO 
410 FOR H=0 TO 511:POKE H+CH,PEEKCH+57 
3443:NEKT H:FOR K=8 TO 23:READ A:POKE 
H+CH,A:NEKT H 

420 FOR H=DL TO DL+2:POKE H,112:NEHT H 
:FOR H=DL+3 TO DL+30 STEP 3:POKE H,6S: 
POKE H+l,108:POKE H+2,5/256:NEKT H 
430 POKE DL+33,66:POKE DL+34,PEEKC6603 
:POKE DL+35,PEEKC6613:FOR H=DL+36 TO D 
L+38:POKE K,2:NEKT H:POKE DL+3S,65 
440 FOR H=RA+32 TO RA+1S1:POKE H,255:N 
EHT H:FOR H=JH*256 TO RA:POKE H,O:NEKT 

H:FOR H = 1 TO ..NEKT H 

450 FOR H=17 TO 30:READ A:ASCH3=CHRSCA 

+ 323 :NEKT ..FOR H = 1 TO 1 

6 :READ A:BSCK3=CHRSCA3:NEKT H 

460 POKE 623,1:POKE 5427S,MEM-16:POKE 

53277,3:POKE 704,1S8:P0KE 705,1S8:P0KE 


707,TUNL:POKE 5325S,1 
470 FOR H=5 TO S+IOS:POKE H,2:POKE H+l 
47,2:NEKT K:FOR H=S+10S TO 5+146:POKE 
H,1:NEKT H:SOUND 1,160,8,2:GOTO SO 
480 DATA 84,170,170,170,170,170,170,6S 
,84,255,255,255,255,255,255,6S 
4SO DATA 14,14,14,4,31,31,14,14,14,14, 
10,10,10,10,33,35,35,255,255,35,35,33, 
160,128,128,255,255,128,128,160 


196 



PHOENIX 


1G GRAPHICS 17:COLOR O:SETCOLOR O f O f O: 
POKE 756 f ZZ6:PDKE 752,1 
IS PG=0:5C=0 

IS R = 5:RR = 4:X = S:Y = 18:IF PG> S THEN SOO 
20 SOUND 1,G,G,G:GOSUB 30 
25 GOTO 60 

30 POSITION R f RR : ? t)6j POSITION R-l 

, RR-1 : ? 86; ■ "iS?" 1 : POSITION R + l J RR-l:? 06; 

lll^ll 

40 POSITION R-l f RR + l:? tt6 J "L" : POSITION 
R + l f RR + l:? tte; M J M 

50 POSITION X , V : ? B6; " | ": POSITION X,Y- 
1:? tt6j M t M :P05ITI0N X-l,Y:? tt6j ,, J i ,, :POS 
ITION X + l , Y : ? 86; "L/ 1 
55 RETURN 

60 POSITION R f RR:? .POSITION R-l 

,RR-1:? ...POSITION R + l f RR-l:? 86J 


61 POSITION R-l,RR + l:? ..POSITION 

R+l,RR+l:? 86;" " 


62 

SD 

= INT CRND CO J#4J+1:IF 

SD=1 THEN R=R 

+ 2 

: IF 

R> 18 

THEN 

R = R — 4 


63 

j| 

IF 

SD = 2 

THEN 

R = R — 2:IF 

R<4 THEN R=R+ 

M- 

64 

IF 

SD = 3 

THEN 

RR=RR+2: 

IF RR>lO THEN 

RR 

= RR 

-4 




65 

IF 

SD = 4 

THEN 

RR=RR—2: 

IF RR <2 THEN R 


R=RR+4 

66 POSITION R,RR:? 86;"D":POSITION R-l 
, RR : ? 86; "Z" : POSITION R + 1,RR:? 86 ; ,, : m 

67 POSITION R-l,RR+l:? 86;"L":POSITION 
R+1,RR+1:? 86; "J" 

68 POSITION R,RR:? .POSITION R-l 

,RR:? ..POSITION R + 1,RR:? 86;" " 

65 POSITION R-l,RR + l:? .POSITION 

R+l,RR+l:? 86;" " 

70 POSITION H,V:? ..POSITION H,Y- 


1: 

? ..POSITION H- 

1,V:? 86; 

■ I III 

POS 

ITION H+l,V:? 

86;" " 




71 

IF STICKCO) 

=7 THEN 

H=H+2:IF 

H> 18 

TH 

EN 

H = 3 





72 

IF STICKCO) 

=11 THEN 

H = H — 2:IF 

H<2 

TH 

EN 

H = 17 





80 

IF STRIGCO) 

=0 THEN 

lee 



SO 

GOTO 20 






100 GOSUB 30:HU=16:SC=SC-1:SOUND 1,INT 
CRNDC0]#1003+100,8,14 

101 POSITION X,HU:? 86;"+":POSITION X, 

HU:? ... . . .1:IF H = R AND HU = RR T 

HEN 150 

102 IF HU <1 THEN 20 

105 GOTO lOl 

120 GOTO 20 

150 SOUND 1,G,O,O:PG = PG + 1:POSITION R , R 

R:? ..POSITION R-l,RR-l:? .. 

POSITION R + l,RR-l:? ..SC=SC+11 

151 POSITION R-l,RR + l:? ..POSITIO 

N R+l,RR+l:? 86;" " 

160 POSITION R,RR:? 86POSITION R- 

1 , RR + l : ? 86; "^|" : POSITION R + l,RR + l:? 86 

. 

170 POSITION R-l,RR-l:? 86POSITIO 

N R+l,RR-l:? 86;"■" 

175 POSITION R,RR:? ..POSITION R- 

1,RR + l:? ..POSITION R + 1,RR + 1:? 86 


ISO POSITION R-l,RR-l:? ..POSITIO 

N R+l,RR-l:? 86;" " 

181 FOR A=256 TO 253 STEP -1:SOUND 2,A 
,lO,lO:NEHT A 

182 RR=RR+1:IF RR<16 THEN ISO 

183 SOUND 2,0,0,0 

184 POSITION R,RR:? .POSITION R- 

1,RR + l:? .POSITION R + 1,RR + 1:? 86 

■ I I II 

185 POSITION H,V:? .POSITION H,V 

-1:? ..POSITION H-l , V : ? ... 

SITION H+l,V:? 86;" " 

186 POSITION R-l,RR-1:? ..POSITIO 

N R + l,RR-l:? .GOTO IS 

ISO GOTO 160 

500 GRAPHICS 2+16 

501 ? 86;" SCORE = ";SC 

502 POSITION G,S 

505 IF SOS4 THEN ? 86;" PHOENIX COMMA 
NDER":GOTO lOOO 

510 IF SC>84 THEN ? 86;" BIRD CAPTA 

in":goto leee 

515 IF SC>7S THEN ? 86;" BUTTERFLV HE 
TTER":GOTO lOOO 

520 ? 86;" BIRD HATCHER" 

leee for h=i to 500:neht h:run 
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PIRACY 


50 GRAPHICS O:5ETCDLDR Z f O f Q:PDKE 752, 
1:POKE 559,0 _ 

55 POSITION 3,4:? : POSI 

tion 3,5 :? "■++■++■ ++■++■++■++■++■++■+ 
++■++■+ *V ■ 

56 POSITION 15,5:? POSITION 9,3 

: ? "□" : POSITION 2,10:? "II" : POSITION 16 

,10:? M [i ,, :POSlTlON 9,17:? "0" 

57 POSITION 16,21:? " ^sU-IVnCE " : POSITIO 
H 16,20:? "Sdddiulu 11 : POSITION 16,22:? 


60 POSITION 16,2:? "IMMEDIATE DAMAGE: 11 
:POSITION 18,4:? "OVERALL DAMAGE:":POS 
ITION 23,6:? "TORPEDOES:":POSITION 23, 
8:? "TREASURE $" 

65 POSITION 24,10:? "CAPTURED":POSITIO 
N 26,12:? "BURIED:":POSITION 23,14:? " 

LONGITUDE:":POSITION 24,16:? "LATITUDE 
:":POSITION 28,18:? "FUEL:" 

67 POSITION 33,12:? "O":POSITION 33,2: 

? "0":POSITION 33,4:? "O":POSITION 33, 

6:? "10":POSITION 33,8:? "0" 

68 POSITION 33,18:? "250":POSITION 33, 

14:? "25":POSITION 33,16:? "25" 

70 POKE 559,34 

105 H = 2 5:Y = 2 5:B = 25:BA=25:R=9:P=10:HT=1 
:D=25Q:C=10 

HO I1=INT C50#RND COJ +13 : L1=INT C50*RND t 
03+13 :I2=INT C5D#RNDCOJ +13 :L2=INTC50*RN 
D COJ+13 

115 IF ABStil-123<11 AND ABSCL1-L2J<11 
OR ABS CI1—BJ <11 AND ABSCL1-BAJ<11 OR 
ABSCI2-B3<11 AND ABSCL2-BAJ<11 THEN 11 
O 

120 I3=INT C50-H-RND COJ +13 : L3=INT CSO^RND C 
03+13 : I4 = INT C50-K-RND COJ +13 : L4 = INT (50#RN 
D COJ+13 

125 IF ABSCI3-B3<11 AND ABSCL3-BAJ<11 
OR ABS CI4—BJ <11 AND ABSCL4-BAJ<11 OR A 
BSCI3—I43<11 AND ABSCL3-L4J<11 THEN 12 
O 

127 IF ABS£13-113<11 AND ABSCL3-L1J<11 
OR ABSCI3-I23<11 AND ABSCL3-L2J<11 OR 
ABSCI4-I13<11 AND ABSCL4-L1J<11 THEN 
120 

129 IF ABS£14-123<11 AND ABSCI4-L2J<11 
THEN 120 

135 E1 = INTt50#RNDCOJ +13 :S1 = INTC50#RNDC 
03+13 : IF ABSCE1-B3 <11 AND ABSCS1-BAJ <1 
1 THEN 135 

140 E2 = INTt50#RNDCOJ +13 :S2 = INTC50#RNDC 
03+13 : IF ABSCE2-B3 <11 AND ABSCS2-BAJ<1 
1 THEN 140 

145 E3 = INTt50#RNDCOJ +13 :S3 = INTC50#RNDC 
03+13 : IF ABSCE3-B3 <11 AND ABSCS3-BAJ <1 
1 THEN 145 

ISO E4 = INTCSO#RNDCOJ +13 :S4 = INTC50#RNDC 
03+13 :IF ABS CE4—BJ <11 AND ABSCS4-BAJ<1 
1 THEN 150 


200 J=H—II:H=V-L1:IF 
WJ <6 THEN TI = 1:GOTO 5 
205 J = K — 12:H= Y — L 2:IF 
WJ <6 THEN TI = 2:GOTO 5 
210 J = K — 13:H= Y — L 3:IF 
WJ <6 THEN TI = 3:GOTO 5 
215 J = K — 14:N=Y-L4:IF 
WJ <6 THEN TI = 4:GOTO S 
220 J=H—B:W=Y-BA:IF t 
3<6 THEN TI=5:GOTO 5E 
225 Z=K-E1:ZZ=Y-S1:II 
CZZJ<6 THEN GOSUB 70( 
227 IF ABS CJ3 <6 AND t 
TION J+R,W+P:? " " 


AND ABSC 
AND ABSC 


AND ABSC 
AND ABSC 


IND ABSCH 
i AND ABS 


fHEN POSI 


230 

Z = 

K 

— E2 : 

Z Z = Y — S 2 

: IF 

ABS CZJ <6 

AND 

CZZJ <6 


THEN 

GOSUB 

7000 



235 

z= 

K 

— E3 : 

ZZ = Y —S3 

: IF 

ABS CZJ <6 

AND 

CZZJ <6 


THEN 

GOSUB 

7000 



240 

z= 

K 

— E4 : 

Z Z = Y — S 4 

: IF 

ABS CZJ <6 

AND 

CZZJ <6 


THEN 

GOSUB 

7000 




245 IF ABSCJ3 <6 AND ABSCH3 <6 THEN POSI 
TION J+R,W+P:? " " 

250 IF STICKC03=14 THEN Y=Y+1:POSITION 
R,P:SOUND 0,50,10,10:? "t+":F=F—1:GOT 

O 270 

255 IF STICKC03=13 THEN Y=Y~1:POSITION 
R,P:SOUND 0,50,10,10:? "t+":F=F—1:GOT 

O 270 

260 IF STICKC03=11 THEN H=H+1:POSITION 
R,P:SOUND 0,50,10,10:? "t+":F=F—1:GOT 

O 270 

265 IF STICKC03=7 THEN K=K-1:POSITION 
R,P:SOUND 0,50,10,10:? "t+":F=F—1:GOTO 

270 


POSITION 
= F — 1:GOT 


POSITION 
= F — 1:GOT 


OSITION 
F-l:GOTO 


270 

IF 

H> 50 

THEN 

H = 1 

275 

IF 

H <1 

THEN 

H = 50 

280 

IF 

Y> SO 

THEN 

Y = 1 

290 

IF 

Y <1 

THEN 

Y = 5 O 

292 

IF 

F = 0 

THEN 

14000 

293 

SOUND O 

,0,0, 

0 


295 M=INT C2-H-RND C03 +13 : IF M=1 THEN E1 = E 
1+1:E2=E2—1:E3=E3+1:E4=E4—1 
300 IF M= 2 THEN E1 = E1~1:E2 = E2 + 1:E3 = E3- 
1:E4=E4+1 

305 N = INT C2-H-RND C03+13 : IF N = 1 THEN 51 = 5 

l+l:S2=S2+l:S3=S3-l:S4=S4-l 

310 IF N = 2 THEN 51 = 51-1:52 = 52-1:S3 = S3 + 

1:54=54+1 

315 IF El>50 THEN El=l 
320 IF Sl>50 THEN 51=1 
325 IF El<1 THEN El=SO 
330 IF 51<1 THEN Sl=SO 
335 IF E2>50 THEN E2=l 
340 IF S2>50 THEN 52=1 
345 IF E2 <1 THEN E2 = SO 
350 IF 52 <1 THEN S2 = SO 
355 IF E3>50 THEN E3=l 
360 IF S3>50 THEN 53=1 
365 IF E3 <1 THEN E3 = SO 
370 IF S3 <1 THEN S3 = SO 
375 IF E4>50 THEN E4=l 
380 IF S4>50 THEN 54=1 
385 IF E4 <1 THEN E4 = 50 
390 IF 54 <1 THEN S4 = SO 

400 POSITION 33,14:? ..POSITION 33 

,16:? ..POSITION 33,18:? ..GOT 

O 200 

50OO POSITION J+R,W+P:? "*" 

5002 IF H=B AND Y=BA THEN GOSUB 5500 

5005 IF J+R=R AND W+P=P THEN SOUND 3,1 

SO,8,14:GOSUB 6000 

5010 SOUND 3,O,O,O:GOTO 225 

5500 D = D-C C250-FJ + C C10-CJ*5J + CIOKIDJ J : 

OD=OD+ID:ID=0:F=250:C=10 

5502 SOUND 3,150,8,14 

5503 IF OD> =100 THEN SOUND 3,0,0,0:G0T 
O lOOOO 

5505 POSITION 33,6:? ..POSITION 33 

,18:? ..POSITION 33,4:? OD:POSITIO 

N 33,2:? ID;.POSITION 33,8:? Dj" 

5510 SOUND 3,O,O,O:RETURN 
6000 IF HT=1 THEN RETURN 
6005 IF TI=1 AND IT1>3 THEN RETURN 

6010 IF TI=2 AND IT2>3 THEN RETURN 

6015 IF TI=3 AND IT3>3 THEN RETURN 

6020 IF TI=4 AND IT4>3 THEN RETURN 

6025 IF TI=1 THEN D=D+1000:IT1=IT1+1 
6030 IF TI=2 THEN D=D+1000:IT2=IT2+1 
6035 IF TI=3 THEN D=D+1000:IT3=IT3+1 
6040 IF TI=4 THEN D=D+1000:IT4=IT4+1 
6050 HT=1:T=T+1:POSITION 33,12:? T:POS 

ITION 33,8:? DJ.POSITION 33,10:? " 

":IF T=16 THEN 12000 
6052 RETURN 

70OO POSITION Z+R,ZZ+P:? "E" 

7005 IF Z+R=R AND ZZ+P=P OR STRIGC0)=0 
THEN GOSUB 8000 

7007 IF Z=0 AND ZZ=0 THEN 13000 

7010 POSITION Z + R,ZZ + P:? .RETURN 

8000 C=C-1:IF C<0 THEN RETURN 

8003 FOR W=200 TO lOO STEP -2:SOUND 1, 
W,2,4:NEHT W:FOR W=0 TO lOO STEP 6:SOU 
ND 1,W,2,8:NEHT WiSDUND 1,0,0,0 
8005 0=ABSCZ-ZZJ 

8010 IF 0=10 OR 0=9 OR 0=8 THEN PO=INT 
C25*HHDC0)+1):IF PO=15 THEN HT=2:POSIT 
ION 33,10:? "H":SOUND 2,10,10,10 

8015 IF 0=7 OR 0=6 THEN ID=ID+1:PO=INT 
C20*RNDCOJ+ 1J:IF P0=10 THEN HT=2:POSIT 
ION 33,10:? "H":SOUND 2,10,10,10 

8020 IF 0=5 THEN ID=ID+2:PO=INTC15*RND 
COJ + 1J :IF PO = 7 THEN HT = 2:POSITION 33,1 
0:? "H":SOUND 2,10,10,10 

8025 IF 0=4 THEN ID=ID+3:PO=INTC10*RND 
COJ +1J :IF PO = 5 THEN HT = 2:POSITION 33,1 
0:? "H":SOUND 2,10,10,10 

8030 IF 0=3 THEN ID=ID+4:PO=INT(4*RNDC 
OJ +1J :IF PO = 2 THEN HT = 2:POSITION 33,10 
■ ? ■■}{" 

8040 IF 0=2 OR 0=1 THEN ID=ID+5:PO=INT 
C2#RND COJ+1J :IF PO = 2 THEN HT = 2:POSITIO 
N 33,10:? "H":SOUND 2,10,10,10 

8045 IF ID> =20 THEN SOUND 2,0,0,0:G0T0 
11000 

SOSO POSITION 33,2:? ID;.POSITION 3 

3,6:? ..SOUND 2,O,O,O:RETURN 

leeee for w=e to 3:sound w, e,e,e: neht 

W:GRAPHICS 18:? «6;"YOUR OVERALL DAMAG 
E WAS TOO GREAT TO CONTINUE. YOU 

COLLECTED" 

10005 ? »6JDJ" DOLLARS.":FOR W=1 TO lO 

OO:NEHT W:RUN 

lieee for'w=o to 3:sound w, e,e,e :neht 

W:GRAPHICS 18:? «6;"YOUR IMMEDIATE 

DAMAGE WAS TOO GREATTO CONTINUE. YOU 
COLLECTED" 

11005 ? »6JDJ" DOLLARS.":FOR W=1 TO lO 

OO:NEHT W:RUN 

12000 FOR'w=e TO 3:SOUND W,0,0,0:NEKT 
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H:GRAPHICS 10:? tt6j M VOU HAUE CAPTURED 
ALL 16 TREASURES. YOU HAVE COLLECT 
ED" 

12005 ? tt6;Dj" DOLLARS . 11 : FOR H=1 TO lO 

OO:NEHT H:RUN 

13000 FOR H=0 TO 3:SOUND H j O j O j O:NEKT 
H 

13002 GRAPHICS 18:? ttG J "THE ENEMY HAS 
DESTROYED YOU BY RAMMING YOUR 

SHIP. YOU HAVE COLLECTED 11 
13005 ? tt6jD; M DOLLARS . 11 : FOR M=1 TO lO 

OO:NEHT H:RUN 

14000 FOR'H=e TO 3 : SOUND H^^^SNEKT 
H 

14002 GRAPHICS 18:? tt6j M YOU RAN OUT OF 
FUEL AND COULD NOT CONTINUE. YO 

U COLLECTED" 

14805 ? tt6 jDj" DOLLARS . 11 : FOR H=1 TO lO 

OO:NEHT H:RUN 
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PIRACY II 


100 E=0:R=1:T = 5:K=256:H=559:P=62:G=3:u 

= 24:V = 5 6 0:M=Y + R:U = 14:J = PEEKC106) :GDSUB 
1240:GRAPHICS E:POKE H f E:GOSUB 1230 
110 DIM BA tT) f COUNT tTJ ,SHIP tT) f F tT) f 15 
CT) ,HPCT) ,GONE CIO! :ISNUM=HS:HHE = 0:F = R: 
ISF = R:DE=45:FOR K=A3 TO T 

120 GONECX)=R:NEXT H:POKE Bl f E:POKE B2 
ji E : POKE 1776j E : GOSUB 130 : GOTO 140 
130 RESTORE 12SO:FOR X=704 TO 712:READ 
A:POKE H ji A : HEHT H : RETURN 
140 MIAD=0.5:BR=20:SET=R:LI=T+R:FOR H= 
E TO T:SHIPCX)=E:NEXT X:DL=tJ-UJ*K:IF 
RU THEN 160 

ISO FOR X=DL TO DL+JH+R:READ A:POKE X, 

O:NEXT X:POKE DL+JH+RjJ-U 

160 RESTORE 1320:FOR X=E TO T:READ 0:1 


S CX) 

= a:COUNT CX)=E: 

NEXT 

X : FOR X 

=E TO HS 

:GONE CX) 

=E:NEXT X 





170 

POKE 

Y,E:POKE 

M, J- 

U:5=J-40 

: CH = 

C J-O 

1)*K 

: IF 

RU THEN GOSUB 

200:GOTO 

240 


180 

Q= C J 

—16)#K+150 

: FOR 

X = Q TO 

Q + 33 

: REA 

D A : 

POKE 

X,O:NEXT 

X 




150 

FOR 

X=1536 TO 

1733 

:REOD O: 

POKE 

X, a 

:NEXT X: 

GOSUB 200: 

GOTO 

220 



200 

FOR 

X=1736 TO 

1747 

:POKE X, 

128 : 

NEXT 


X 

210 Z=S:FOR H=1756 TO 1767:POKE H,Z:Z= 
Z+R:NEXT x:RETURN 

220 FOR I=E TO 767:POKE CH+I,PEEKt5734 
4+13:NEXT I:FOR 1=01 TO 239:REOD O:POK 
E CH+I,O:NEXT I 

230 FOR 1=266 TO 327:REOD O:POKE CH+I, 
O:NEXT I 

240 POKE 756,CH/K:POKE 207,E:P0KE 208, 

S—24:POKE 1769,S+22:IF RU THEN 270 
250 RESTORE 1650:0=tJ-A3)*K:FOR H=0 TO 
0+44:REOD O:POKE X,0:NEXT X 
260 FOR X=1763 TO 1790:REOD O:POKE H,0 
:NEXT X:FOR 1=240 TO 267:POKE CH+I,E:N 
EXT I 

270 PM=J—16:PMB=PM»K:POKE 623,33:POKE 

CL—R,G:POKE 54279,PM:POKE CL,E 

280 IF RU THEN X = USR CPMB + ISO) :GOTO 320 

290 RESTORE 1680:FOR X=PMB TO PMB+141: 
REOD OlPOKE X,O:NEXT X:POKE PMB+02,J~1 
6:H=USR(PMB+150) 

300 FOR H=PMB+1224 TO PMB+1241:REOD O: 
POKE X,O:NEXT X:FOR X=PMB+1479 TO PMB+ 
1503:REOD 0:P0KE X,0:NEXT X 
310 FOR X=PMB+1660 TO PMB+1668:REOD O: 
POKE X,O:NEXT X 

320 FOR X=53248 TO 53252:POKE X,E:NEXT 
X:POKE 53250,125:POKE 208,J-U 
330 FOR SS=E TO G:RESTORE 1538:HP CSS) = 
K++CINT CRND CE)*27)+S-16) : FOR 0 = E TO G:F 
OR B=E TO 7 

340 REOD X:POKE XPtSS)+ISCSS)+B+K*fl,X: 
NEXT B:NEXT A:SHIP tSS)=XP CSS)+15 £55)+fl 
l:POKE SHIPCSS),167:NEXT SS 
350 IF RU THEN 430 

360 FOR SS=CS~U)*K TO CS+22)*K STEP K: 
POKE 55+22,04:POKE 55+23,04:POKE 55+23 
2,04:POKE 55+233,04:NEXT SS 
370 FOR SS=tS-U)*K+1536 TO tS"U)*K+179 
l:POKE SS,04:POKE 55+8448,04:NEXT SS 
380 FOR SS=CS~U)*K TO CS+22)*K STEP K: 
FOR HH=E TO 21:POKE SS+WW,05:POKE SS+2 
34+HH,05:NEXT HH:NEXT SS 

3SO FOR SS=CS~U)*K TO CS —U) *K + 1535:POK 
E SS,05:POKE 55+10240,05:NEXT SS 
400 RESTORE 1760:0=CJ-03)*K:FOR H=0+50 
TO Q + 127:REOD O:POKE X,0:NEXT X:POKE 
0+56,Q^K:POKE 0+76,Q^K 

410 POKE 0+86,Q/K:POKE 0+100,Q^K:FOR X 

=0+150 TO 0+201:REOD O:POKE X,0:NEXT X 

:FOR X=0+210 TO 0+225:REOD O 

420 POKE X,O:NEXT X:FOR X=0+170 TO 0+1 

85:REOD O:POKE X,0:NEXT X 

430 POKE CL,E:POKE 54,E 

440 RESTORE 1530:XP CISNUM) =K#tINTCRND C 
E3*273+5-163:FOR 0=E TO G:FOR B=E TO 7 

450 REOD X:POKE XP CISNUM) +ISCISNUM) +B + 
K++0 , X : NEXT B : NEXT O : SHIP CISNUM) =XP CISN 
UM3+IS CISNUM)+01:POKE SHIP CISNUM),167 
460 X=USRC1536):POKE 1770,E:P0KE 1771, 

E:POKE CL,E:POKE S4,E:POKE H,P:SOUND E 
,SO,Ol,L 

470 FOR SE = E TO ISNUM:HO = INT CRND CE3*G3 
-R:WR=K#CHQ=R)-K*tWQ=-R3+E*tWO=E3:SHNE 
W=SHIPtSE3 : DS = INT CRND CE3++L3 
480 SHNEH=SHNEH+HO#CDS=R3+WR*tDS=E3 
450 IF PEEKCSHNEH)=40 OND COUNT CSE3=E 
THEN POKE SHIPCSE),40:POKE SHNEH,167:S 
HIP CSE)=SHNEH 

500 NEXT SE:HIT=PEEKC532543:POKE 77,E: 
IF HIT=8 OR HIT=10 OND NOT SF THEN 58 
O 

510 IF HIT=8 OR HIT=R OR HIT=10 OR HIT 


=3 OR HIT=11 OR HIT=5 THEN 530 
520 IF HIT=4 OR HIT=6 OND NOT I5F THE 
N N=PEEKC17403+2Q:GOSUB 760:GOTO 800 
530 IF HIT <> 2 OND HITOE THEN LI = LI-R : 
GOSUB 1220:GOSUB 1150:GOSUB 570:POKE H 
, P 

540 IF 5TRIG CE3=E THEN POKE H,E:POKE 5 
3250,E:POKE 54,R:GOSUB 1050:POKE H,P 
550 IF XXE=E THEN POKE CH+321,E:POKE C 
H+322,40:POKE CH+325,E:POKE CH+326,40: 
XXE=R:GOTO 470 

560 POKE CH+321,40:POKE CH+322,130:POK 
E CH+325,40:POKE CH+326,130:XXE=E:GOTO 
470 

570 POKE H,E:POKE 53250,E:GOSUB 200:PO 
KE CL,E:POKE 53250,125:POKE S4,E:RETUR 

N 

580 SOUND E,E,E,E:GRAPHICS E 
550 POKE H,E:GOSUB 1230:POKE 756,CH/K: 
POKE 1782,lOO:POKE 1777,E:POKE 1778,G: 

POKE 1775,G:POKE 178Q,E 

600 POKE 207,E:POKE 208,PM+G:POKE 5325 
6,G:POKE 53257,G:FOR X=PMB+768 TO PMB+ 
1023:POKE X,E:NEXT X:POKE 53250,E 
610 DL = PEEK CY) +K*PEEKCM3 +HS:POKE DL-R, 
69:FOR I=L TO 12:POKE DL+I,A3:NEXT I:R 
ESTORE 1540 

620 POKE CL,E:POKE DL+13,65:SC=PEEKt88 
3+K*PEEKCSS):FOR A=R TO G:FOR B=E TO 3 
5:REOD Z:POKE B+SC+JH*A,Z:NEXT B 
630 NEXT O:FOR H=E TO Ol:BA CH)=SC + 163 + 
CH*4) : F CH) =E : NEXT H: HZ = INT CRND CE)+*JH) : 
POKE SC+HZ,152:OZ=XZ:POKE H,P 
640 POKE CL,E:POKE 1771,E:X=USRCPMB3:P 
OKE S4,E 

650 CZ = INT CRND CE)#T) :FCCZ3=L-CFCCZ3=RJ 
:IF F CCZ) =L THEN SOUND E,200,L,lO:POKE 
BO CCZ),37:F CCZ) =R 

660 IF RND CE3 >MIAD THEN XZ = INTCRNDCE3# 
403:POKE SC+OZ,E:POKE SC+HZ,152:OZ=HZ 
670 FOR H=R TO BR:NEXT NlPOKE 77,E:SOU 
ND E,E,E,E 

680 FOR CZ=E TO Ol:IF FCCZ3 THEN BOCCZ 
3=BACCZ3+JW:IF BACCZ)>SC+4SO THEN POKE 
BO CCZ) —JH,E:FCCZ)=E:BA CCZ)=BflCCZ3"320 

650 IF FCCZ3 THEN POKE BA CCZ3 —JH,E:POK 
E BO CCZ) ,37 

700 IF PEEK C1776) THEN POKE H,E:ISF = E: 
5F = R:COUNT CHUM)=R:POKE SHIP CHUM) ,40:NU 
M=NUM+CNUM<T):GOTO 730 

710 IF PEEK C53252) OR PEEKC53253) THEN 
GOSUB 1220:LI=LI-R:GOSUB 1150:GOTO 58 
O 

720 NEXT CZ:GOTO 650 
730 5C0RE=SC0RE+100*SET 

740 POKE H,E:POKE 1771,R:POKE 53248,E: 

POKE 53249,E:POKE 53252,E:POKE S4,R:PO 
KE 208,J-U 

750 X=USRC15363:POKE Y,E:POKE M,J-U:PO 
KE 1776,E:POKE CL,E:GOSUB 130:GOSUB 57 
O:GOTO 460 

760 GH=CN>80 AND N<1023+L*tN>E AND N <A 
4) +G++ CN> 211 AND N <2553 +H5* CN> 04 AND N< 
58) 

770 GH = GH + 03*t CN>150 AND N <212) +02* CN> 1 
02 AND N<124)+7*CN>58 AND N<SO)+fll*CN> 
124 AND N <1463+T#CN>168 AND N<150) 

780 IF GONE CGH)=R THEN POP :LI = LI —R:GO 
SUB 1220:GOSUB 1150:GOSUB 570:POKE H,P 
:SOUND E,SO,Ol,L:GOTO 470 
750 RETURN 

800 SOUND E,E,E,E:POKE 53277,E 

810 GRAPHICS E:POKE 555,E:GOSUB 1230:P 

OKE 756,CH/K:POKE 207,240:P0KE 208,CH/ 

K:POKE 1751,DE:RESTORE 1570 

820 DL = PEEK CY)+K*PEEKCM)+HS:POKE DL-R, 

65:FOR I=L TO 12:POKE DL+I,A3:NEXT I:S 

C=PEEKCSS)+K*PEEKC85) 

830 POKE 53250,E:POKE CL,E:POKE DL+13, 
65:FOR I=R TO 31:REOD O,B,C,D,EE,F:POK 
E SC+O,30 

840 POKE SC+B,31:POKE SC+C,32:POKE SC+ 
D,33:POKE SC+EE,34:POKE SC+F,35:NEXT I 

850 FOR H=SC TO SC+RA:POKE H,EA:POKE H 
+440,EA:NEXT H:FDR W=SC+JW TO SC+400 S 
TEP JH:POKE H,EO:POKE H+R,EO 
860 POKE H+EO,EO:POKE H+RO,EO:NEXT H 
870 T1=PEEKCB1):T2=PEEKCB2):POKE B1,E: 
POKE B2,CPMB+1752)/K:POKE CL-R,G:POKE 
1773,56:POKE 1772,154 

880 POKE SC+230,156:POKE SC+231,157:PO 
KE 53251,56:POKE 53252,E:POKE 1770,R:X 
= USRC CJ —03)#K + 50) 

850 FOR X=PMB+1752 TO PMB+2047:POKE X, 
E:NEXT X:POKE 53248,E:POKE 53245,E:POK 
E S4,E:POKE H,P 

500 POKE 53768,U:FOR H=E TO 02 STEP L: 
POKE 53761+H,168:NEXT H:POKE 53760,240 
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:POKE 53764,252:POKE 53762,2s 
910 POKE 53766,4?:POKE 1770,E 
920 POKE 77,E:FOR 0=30 TO 35:H=USRCCJ- 
fl3)*K,CQ-3G5*A15:GOSUB 930:NEKT Q:GOTO 
960 

930 IF PEEK C532551= A1 THEN GOSUB 1210: 
POKE H,E:POP :XSF=H:SF=E:SCOHE=SCOHE+2 
50*5ET:GOTO 990 

940 IF PEEK C532551 THEN GOSUB 1210:POK 
E H,E:POKE 1770,R:POP :GOTO 970 
950 RETURN 

960 FOR Q=34 TO 31 STEP -R:H=USRttJ-A3 
)*K,tQ-30)*fll3:GOSUB 930:NEXT Q:GOTO 5 
20 

970 POKE H,E:LI=LI-R:GOSUB 1190:FOR H= 
PMB+1792 TO PMB+2047:POKE H ,E:NEKT K:P 
OKE 1773,56 

980 POKE 1772,194:POKE CL,E:POKE 1770, 
E:POKE H,P:GOTO 900 

990 POKE HP CGH1+IS CGH1+262,G:GONE (GH3 = 
R:FOR HE = E TO T:IF GONE CHE1=E THEN POP 
:GOTO 1080 

lOOO NEKT HE:FOR HE = E TO ISNUM:GONE CHE 
J =E:COUNT CHE1=E:POKE HP CHE]+IS CHE]+262 
,lQ:POKE HP CHE]+15 CHE]+fll,167:HEKT HE 
1010 FOR HE = E TO ISNUM:SHIP CHE]=HP CHE] 
+ISCHE)+A1:NEKT HE 

1020 ISNUM=ISNUM+R:GONECISNUM)=E:IF IS 
NUM=10 THEN ISNUM=T:FD=R 

1030 SCORE=SCORE+10OO»SET:DE=DE-fl3*CDE 
>253:MIAD=MIAD~0.05*CMIflD>0.73:BR=BR—A 
3*CBR>E):SET=SET+R:NUM=E 

1040 POKE 1770,R:POKE Bl,Tl:POKE B2,T2 
SPOKE 207,E:POKE 53251,E 

1050 POKE 1771,R:POKE 53248,E:POKE 532 
49,E:POKE 53252,E:POKE S4,R:POKE 208,J 
— V:POKE V,E:POKE M,J—14 

1060 POKE 1776,E:POKE CL,E:GOSUB 130:G 
OSUB 570:POKE 53250,E:GOSUB 1090:IF FD 
THEN FD = E:GOTO 460 
1070 GOTO 440 



NOT LI THEN 1160 

1130 IF STRIGCE3 THEN POKE 77,E:GOTO 1 
130 

1140 POKE H,E:POKE Y,E:POKE M,J-U:POKE 
54,E:POKE 53250,125 

1150 GOSUB ISO:POKE 756,CH/K:SOUND E,5 
O,Al,L:RETURN 

1160 IF STRIG CE3=E THEN FL = R 

1170 IF FL THEN FL=E:POKE 177Q,R:POKE 

1771,R:POKE 54,R:FOR H=53248 TO 53252: 

POKE H,E:NEKT H:POKE CL,E:RUN 

1180 POKE 77,E:GOTO 1160 

1190 IF NOT LI THEN POKE H,E:POKE CL- 

R,E:POP :GOTO 1090 
1200 RETURN 

1210 FOR H=E TO G:SOUND H,E,E,E:NEKT H 
:RETURN 

1220 SOUND R,lOO,L,lO:FOR H=R TO 20:HE 
HT H:SOUND R,E,E,E:RETURN 
1230 POKE 16,64:POKE 53774,64:RETURN 
1240 GRAPHICS R:L=2:EA=38:RA=39:SETCOL 
OR L,E,E:GOSUB 1230:54=1774:DL=PEEKCY) 
+K#PEEKCM3:POKE DL+U,23:POKE DL+18,L 
1250 JH=40:POKE 54276,4:SETCOLOR E,8,4 

: POSITION 7 , T : ? tt6; "PIRACY II M : POSITIO 
N 4,11:? «6 : M f !lgEB start kJ.MBJiFfTI 11 
1260 RU=PEEKC15363:Al=8:A2=6:A3=5:HS=4 
:A4=36:A5=155:CL=53278:POSITION T,13:? 

tt6 ; "ANSCHUETZ/HEISGERBER/ANSCHUETZ" 
1270 01=204:B2=B1+R:POKE 77,E:IF PEEKC 

532793 06 THEN 1270 
1280 RETURN 

1250 DATA 52,136,50,158,214,134,28,0,1 
36 

1300 DATA 112,112,112,117,128,56,117,1 
28,57,117,128,58,117,128,55,117,128,10 
0,117,128,101,117,128,102 

1310 DATA 117,128,103,117,128,104,117, 
128,105,117,128,106,85,128,107,65,0,50 

1320 DATA 157,51,25,223,47,201,113,65, 
135,175,104,160,0,177,207,201,40,240,1 
2 

1330 DATA 201,36,240,8,201,155,240,4,1 
65,40,145,207,200,208,235,230,208,165, 
208,205,233,6,208,224,56 

1340 DATA 104,165,7,160,11,162,6,32,52 
,228,56,173,238,6,240,3,76,58,228,216, 


173,120,2,41,1,208,23,158,205 

1350 DATA 165,205,16,17,165,15,133,205 

,162,0,222,220,6,232,138,201,12,144,24 

7,176,52,173,120,2,41,2,208,25,230 

1360 DATA 205,165,205,201,16,208,17,16 

5,0,133,205,162,0,254,220,6,232,138,20 

1,12,144,247,176,60 

1370 DATA 173,120,2,41,4,208,25,230,20 
4,165,204,201,4,208,17,165,0,133,204,1 
62, O 

1380 DATA 222,200,6,232,138,201,12,144 

,247,176,28,173,120,2,41,8,208,21,158, 

204,165,204,16,15,165,3,133,204,162,0 

1350 DATA 254,200,6,232,138,201,12,144 

,247,162,0,138,10,134,206,24,101,206,1 

05,4,168,185,200,6,145,207,200 

1400 DATA 185,220,6,145,207,232,138,20 

1,12,144,225,165,205,141,5,212,165,204 

,141,4,212,173,6,208,240,5,201,2 

1410 DATA 240,5,165,1,141,238,6,76,58, 

228 

1420 DATA 0,0,0,0,0,0,60,255,15,63,15, 
3,3,15,63,255,255,255,255,255,255,255, 
255,255,0,255,255,255,255,255,255,255 
1430 DATA 0,240,252,240,240,240,255,25 
5,0,3,15,15,3,0,0,0,255,255,255,255,25 

5.255.63.3.255.255.255.255.255.255.255 

1440 DATA 195,215,85,85,150,235,239,23 

9.239.255.255.255.255.255.87.238.234.2 
55,255,255,255,255,255,255,63,0 

1450 DATA 15,63,255,255,63,15,0,0,255, 

192, e, e 

1460 DATA 192,255,60,15,255,15,3,3,15, 
255,60,255,255,252,252,252,192,O,O,255 
,255,15,0,0,0,0,0,255,255 

1470 DATA 255,252,240,0,0,0,255,255,63 
,63,15,15,3,3,255,255,255,255,255,253, 
245,213,255,255,255,255,87,87,87,87 
1480 DATA 255,255,252,252,240,240,192, 

192.85.105.105.85.255.255.255.255.87 .3 

5.127.255.255.255.255.255 

1490 DATA 20,85,40,255,60,60,195,195,2 

55.255.254.234.169.169.234.254.255.255 
,191,171,90,90,171,191 

1500 DATA 235,235,125,125,235,235,125, 
125,0,0,255,63,15,15,15,15,0,0,240,252 
,255,175,255,255 

1510 DATA 85,85,85,85,85,85,85,85,0,0, 

20,89,85,20,O,O,129,36,24,66,129,36,24 

,66,0,0,0,60,12,255,255,60 

1520 DATA 0,40,130,130,0,40,130,130 

1530 DATA O,1,2,3,4,4,5,1,6,7,8,5,3,5, 

10,3,0,0,6,11,S,3,8,3,O,12,13,14,15,16 

i6,17 

1540 DATA 18,25,26,3,3,3,3,25,26,3,3,3 

,3,25,26,3,3,3,3,25,26,3,3,3,3,25,26,3 

,3,3,3,25,26,3,3,3,3,25,26,21 

1550 DATA 0,18,3,15,20,3,3,15,20,3,3,1 

5.20.3.3.15.20.3.3.15.20.3.3.15.20.3.3 
,15,20,3,3,15,20,3,3,15,20,3,21,0 
1560 DATA 0,0,18,22,23,3,3,22,23,3,3,2 

2.23.3.3.22.23.3.3.22.23.3.3.22.23.3.3 
,22,23,3,3,22,23,3,3,22,23,21,0,0 
1570 DATA 42,43,83,123,124,125,167,127 
,87,88,48,45,53,52,52,53,54,54,60,61,1 
01,102,142,143,64,65,66,67,107,108 
1580 DATA 70,71,111,110,150,151,73,74, 

114.115.116.156.130.131.132.172.173.21 
3,175,176,136,56,57,58,218,178,175 
1550 DATA 180,220,260,222,223,263,303, 
343,344,105,145,148,147,187,188,185,15 
0,151,152,232,272,154,154,155,235 
1600 DATA 236,237,211,210,205,245,285, 

288.286.285.245.244.243.242.322.323.32 
4,364,404,405,365,405,408,407,367,327 
1610 DATA 251,251,331,371,411,412,253, 

254.255.256.257.258.255.414.374.373.33 
3,334,335,340,380,375,378,377,376 
1620 DATA 422,423,424,425,426,386,427, 
387,347,307,267,227,346,306,266,226,18 
6,146,228,268,308,348,345,305,310 
1630 DATA 311,271,170,265,225,313,273, 
233,153,153,113,275,315,355,354,353,35 
2,425,385,350,351,352,353,433,435 
1640 DATA 436,437,357,356,356 

1650 DATA 104,104,104,133,203,164,203, 

162,0,185,247,6,145,207,200,232,224,8, 

208,245,165,0,133,20,165,20,205,255,6 

1660 DATA 208,245,164,203,165,0,170,14 

5,207,200,232,224,8,208,248,56 

1670 DATA 20,85,40,255,60,60,155,155 

1680 DATA 104,165,7,160,11,162,144,32, 

52.228.56.216.173.235.6.240.3.76.58.22 
8,173,246,6,141,0,208,105,16 

1650 DATA 141,1,208,173,120,2,201,11,2 
08,16,56,173,246,6,233,1,201,22,144,3 
1700 DATA 141,246,6,24,144,17,201,7,20 
8,13,24,173,246,6,105,1,201,175,176,3, 
141,246,6 
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1710 DATA 173 ji Z39j 6,240,30,162,0,172,2: 

45,6 ji 189, Z41j 6j 145 f 207,23Zj 200,224,4,2 
08,245,206,245,6,173,245,6 

1720 DATA 208,27,141,239,6,24,144,21,1 

73,132,2 , 208,16,169,200,141,245,6,173, 
246,6,105,28,141,4,208,141,239,6,173,0 

1730 DATA 208,41,8,240,5,169,1,141,240 

j 6,76, 08 , 22B 

1740 DATA 0,0,1,1,1,1,3,3,5,5,9,9,17,1 

7,240,240,16,16,IS,48,40,16,16,16,16,1 
6,16,24,24,20,20,10,10,255,255 
1750 DATA 254,254,252,252,120,120,40,4 

0,24,0,24,44,74,137,255,126,60 
1760 DATA 104,169,7,160,61,162,155,32, 

92,220,96,173,234,6,240,3,76,90,220,21 
6,24,174,120,2,109,210,155,109 
1770 DATA 237,6,141,237,6,24,109,170,1 

55,109,236,6,141,236,6,162,0,172,236,6 
, 189,100,155,145, 204,232,200,224,12 
1760 DATA 200,245,173,237,6,141,3 , 200, 

173,7,200,240,5,16?,1,141,234,6 , 76,08 , 
226,0,6,62,28,28,8,20,42,6,20,54,0 
1790 DATA 0,0,0,0,0,1,1,1,0,255,255,25 

5,0,0,0,0,0,0,0,0,0,1,255,0,0,1,255,0, 
0,1,255,0 
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RAMSES’ REVENGE 


10 DATA Oj 254,254j£54jOj23?,239,23? 

20 DATA 0j 60i24j 36 j66 j66i36 j24 

30 DATA 126j126,255j255 ,255,255,195,1? 

5 

40 DATA 170j85,170,85 ,170,85 f 170,85 

50 DATA 62j34,62,6j 30j6j14,6 

60 DATA 56j56,16,124,146,56,40,102 

70 DATA 26,26,73,62,0,20,20,54 

00 DATA 0,0,12?,66,60,24,0,0 

S0 DATA 0,46,20,15,7,3,1,1 

100 DATA 0,0,0,0,102,240,240,240 

110 DATA 252,254,254,254,254,254,254,2 

52 

120 DATA 240,240,240,102,0,0,0,0 

130 DATA 1,1,3,7,15,20,40,0 

140 DATA 60,126,210,255,255,231,60,24 

150 DATA 105,00,126,36,60,24,60,102 

160 DATA 24,60,60,153,255,24,60,102 

200 DIM CHAR5E163 

210 CHAR5 = "tt5K£G £3 <>- = +*[] 

220 CHSET= (PEEK £1063-03*256:CHORG = 5734 
4 

230 IF PEEKCCH5ET+03<>0 THEN 300 


240 

FOR 

1 — 0 

TO 

511 

HORG+I3! 

: NEXT 

I 


250 

FOR 

1 = 1 

TO 

16 


260 CHPOS=CHSET+ CASC CCHAR5 £13 3 -323*6 

270 FOR J — 0 TO 7 

260 READ A:POKE CHPOS+J,A 

20O NEHT J:NEXT I 

30O POKE 756,CHSET/Z56 

40O ? "IS" : SETCOLOR 2,0,0:P0KE 752,1 
410 ? " 500O YEARS AGO, THE PHARAOH 

RAMSES HAS SHALLOHED UP BY THE 

RED" 

415 ? "SEA HHILE IN PURSUIT OF MDSES H 

HD HAD FREED THE SLAVES OF EGYPT. HDH 
EVER," 

420 ? "BEFORE LEAVING THE GLORY OF EGY 

PT, RAMSES TRANSFERED ALL OF HIS PD 

HER" 

425 ? "TO THE GREAT GOLDEN KEYS, PRAYI 

NG TO THE EVIL GOD SETH THAT THEY MIG 
HT" 

43D ? "REMAIN SAFE; HIDDEN IN THE SACR 

ED PYRAMID." 

44D ? " ONLY NDH, HAVE YOU AND ANDTH 

ER EXPLORER STUMBLED ONTO THIS PRI 

VIOU5LY" 

445 ? "^UNDISCOVERED PYRAMID. HILL ON 

E OF YOU RECOVER THE ALL POHERFUL G 

OLDEN" 

450 ? "KEYS, OR HILL BOTH OF YOU FALL 

VICTIM TO THE CURSE OF lrnSi~M~f 

460 ? :? :? :? " PRESS bW;VH TO 

BEGIN" 

465 IF PEEK£532703<>6 THEN 465 
1000 POKE 550,0:? "IS" : SETCOLOR 2,0,0 
1010 POSITION 10,1:? "tt" : POSITION 16,2 
: ? "tttttt" : POSITION 17,3:? "tttt tttt" : POSIT 
ION 16 ,4: ? "tttt tttt" : POSITION 15,5:? " 

1015 C POSITION 10,3:? "G" 

1020 POSITION 14,6:? "tttt tttt" : POS 

ITION 13,7:? "tttttt llllllllll tttttt" : POSITION 
12,0:? "tttt tttt" : POSITION 11,0 


103O POSITION 10,10:? 

tttt" : POSITION 0,11:? 
tttt tttttt" : POSITION 0,12:? 


1035 POSITION 2,13:? 
3 : " [" 

1040 POSITION 7,13:? 


' C":POSITION 36,1 


: POSITION 5,14: 


1050 POSITION 0,15:? "££ ££tttttttttttt 

■ I M M 11111111111 M M ■ llllllllllll££ ££":POSITION 0,16 
: ? "£ £££ £ 
££ £" 

1O60 POSITION 0,17:? "£ ££££ £££££££££ 

£ £££ ££££££££££ ££££ £":POSITION 0,18 
:? "£ ££££££ £££ £££ £££ 
£££ S» 

1O70 POSITION 0,10:? "£ ££ 

£££££££ ££ fi":POSITION 0,20 

:? "£££££££££££££££££££££££££££££££&££ 
£££££" 

1075 POSITION 14,6:? "5":POSITION 24,6 

:? "$":POSITION 10,11:? "5":POSITION 1 

0,13:? "S":POSITION 0,14:? "5":POSITIO 

N 30,14:? "$" 

1077 POSITION 6,17:? "5":POSITION 32,1 

7 : ^ 

1000 POSITION 32,2:? ">-":POSITION 33, 

3:? "=":POSITION 32,4:? "*+":POSITION 

2,14:? "K":POSITION 36,14:? "K" 

1O00 POSITION 12,21:? "RAMSES 1 REVENGE 


1002 POKE 550,34 

1005 A=6D2:B=636:R=0:R1=0:Z=3:Zl=3:MV= 
10:BV=17:BVl=21:TT=1:MV1=10:55=1:UU=1: 
KE=0:KE1=0:N=1:Nl=l 

2000 SOUND 0,0,0,0:SOUND 1,O,O,O:SOUND 
2,0,0,0:SOUND 3,0,0,0 

2001 SC=PEEK£063+256*PEEK£603:C=PEEK£5 
C+A-403:D=PEEKESC+B-403:E=PEEKfSC+A+40 
3:F=PEEKESC+B+403 

20O5 G=PEEKESC+A+13:H=PEEK£SC+B+13:I=P 
EEK £SC + A —13 :M=PEEK£SC + B —13 :K = PEEK£SC + A 
3:L=PEEKESC+B3 

2010 J=STICK£03:J1=STICK£13:POKE SC+A, 
0:POKE SC+B,0 

202O IF J=14 AND N AND C<>3 AND C<>50 
AND C<>6 AND C<>5 THEN POKE SC+A,D:A=A 
-40:SOUND 0,150,10,6 

2D25 IF Jl=14 AND HI AND D<>3 AND D<>5 
0 AND D<>6 AND D<>5 THEN POKE SC+B,0:B 
=B-40:SOUND 0,200,10,6 

203O IF J=13 AND N AND E<>3 AND E<>50 
AND E<>6 AND E<>5 THEN POKE SC+A,0:A=A 
+40:SOUND 0,150,10,6 

2035 IF Jl=13 AND HI AND F<>3 AND F<>5 
0 AND F<>6 AND F<>5 THEN POKE SC+B,0:B 
=B+40:SOUND 0,200,10,6 

204O IF J=7 AND N AND G<>3 AND G<>50 A 

ND G<>6 AND G<>5 THEN POKE SC+A,0:A=A+ 

1:SOUND 0,150,10,6 

2045 IF Jl=7 AND HI AND H<>3 AND H<>50 

AND H<>6 AND H<>5 THEN POKE SC+B,0:B= 
B+l:SOUND 0,200,10,6 

205O IF J=ll AND N AND I<>3 AND I<>50 
AND I<>6 AND I<>5 THEN POKE 5C+A,0:A=A 
-1:SOUND 0,150,10,6 

2055 IF Jl=ll AND HI AND M<>3 AND M<>5 
0 AND M<>6 AND M<>5 THEN POKE 5C+B,0:B 
=B-1:SOUND 0,200,10,6 

206O IF K=4 THEN R=R+1:SOUND 1,30,10,1 

0:POSITION —1+R,21:? "S":IF R = 3 THEN Z 
=Z+1:R=0:POSITION 0,21:? " 

2065 IF L=4 THEN R1=R1+1:SOUND 1,30,10 

,10:POSITION 35+R1,21:? "S":IF Rl=3 TH 

EN Z1=Z1+1:R1=0:POSITION 36,21:? " 

2070 POSITION 4,21:? "3:"JZ:IF Z = 0 THE 

N N=0:POSITION 2,15:? " " 

2075 POSITION 32,21:? "£:"JZ1:IF Z1=0 

THEN N1=0:POSITION 36,15:? " " 

2077 POSITION MV,6:? .. . . . ..IF M 

V=22 OR MV=16 THEN TT=-TT:SOUND 3,100, 

2060 POSITION MV,6:? "3" 

2065 POSITION MV1,10:? .MV1=MV1+SS: 

IF MV1=12 OR MV1=26 THEN SS=-SS:SOUND 
3,100,12,8 

2087 POSITION MV1,10:? "^" 

2090 POSITION BV,12:? .POSITION BV1 

,12:? .. . ... . . . ..IF BV = 10 

OR BV=17 THEN UU=~UU:SOUND 3,100,12,8 

2095 POSITION BV,12:? "<":POSITION BV1 

, 12 :? "<" 

2100 IF K = 61 OR K = 15 OR K = 28 THEN Z = Z- 
1:SOUND 2,220,12,14:FOR H=1 TO 20:NEHT 
H:A=602 

2105 IF L=61 OR L=15 OR L=28 THEN Z1=Z 
1 _ 1:SOUND 2,220,12,14:FOR H=1 TO 20:NE 
XT H:B=636 

2110 IF K=32 THEN KE=KE+1:GOSUB 2240:P 
OKE SC+B,0:A=602:B=636:POSITION 19,3:? 

"G":POSITION —1+KE,22:? "G" 

2115 IF L=32 THEN KE1=KE1+1:GOSUB 2240 
:POKE SC + A,0:A = 602:B = 636:POSITION IS,3 
:? "G":POSITION 28+KE1,22:? "G" 

2117 IF KE=10 THEN 2210 

2118 IF KE1=10 THEN 2220 

2119 IF N=0 AND N1=0 THEN 2230 

2200 GOTO 2000 

2210 FOR Y=0 TO 3:SOUND Y,0,0,O:NEKT Y 
: GRAPHICS 18 : POSITION 4,5:? tt6 ; "PLAYER 

1 WINS":GOTO 2231 

2220 FOR Y=0 TO 3:SOUND Y,0,0,O:NEKT Y 
: GRAPHICS 18 : POSITION 4,5:? tt6 ; "PLAYER 

2 WINS":GOTO 2231 

2230 FOR Y=0 TO 3:SOUND Y,0,0,O:NEHT Y 

: GRAPHICS 18 : POSITION 4,5:? tt6 ; "THE LE 
GEND OF THE CURSE IS TRUE!" 

2231 FOR W=0 TO O STEP O:NEHT W 

2240 FOR Y=0 TO 3:SOUND Y,0,0,O:NEHT Y 
:RESTORE 2255 

2245 READ DO,PP:IF 00>0 THEN SOUND 0,0 
0,10,8:FOR QQ=1 TO PP*1.3:NEXT QQ 
2255 DATA 121,20,108,20,102,35,108,35, 
121,35,121,20,108,20,102,20,81,20,102, 
20,108,20,121,40,-1,0 

2260 IF OO>0 THEN SOUND 0,0,0,O:FOR QQ 
=1 TO 2:NEXT QQ:GOTO 2245 
2265 RETURN 
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ROBOT DUNGEON 


10 REM ROBOT DUNGEON 

20 REM BY ANSCHUETZ/HEISGERBER/ANSCHUE 
TZ 

3G REM Cc J 1985, ANTIC PUBLISHI NG 
40 ? ">SHARNING ! JIMM JITTM WRITES 

TO" 

SO ? "YOUR DISK!!!" 

60 ? :? "Do you want instructions CY^N 

3 ?■■ j 

62 POKE 764,255:POKE 1540,15 

65 IF CPEEK C7643 =43 OR PEEKC7643=1073 

THEN POKE 764,255:RUN "D:ROBOHELP" 

67 IF CPEEK C7643 =35 OR PEEK£7643=993 T 
HEN POKE 764,255:GOTO lOO 
70 GOTO 65 
lOO GOTO 1060 

lie GRAPHICS 2:POKE 53774,64:POKE ±6,6 
4:MEM=PEEK£1063 :DIM AA C43 ,BB C43 ,MM£4), 
OA C43 , OB C43 , D$ £123 , MS C83 : MS = " BK33 11 


120 CH 
— S3 #2 51 
OLOR 3 
130 FOI 
57344 + 1 
3 

140 ? 

ERS 
SAME 
ISO TRi 
HEN ? 
160 IF 
OTO 14 
170 ? 

PRESS 
64,255 
ISO DPI 
ISO ? 

764,25 
200 TRi 
O 60:GI 
210 NE 
1 TO 6 
NEHT C 
220 FOI 

6 + H,A: I 
R H = 1 
230 AS 
:INPUT 
1,LI:G 
240 CL 
=HB:NL 
250 POI 
:POKE I 
63:REA 
260 FOI 
256,A: I 
270 GO 
23 =172 
2SO FOI 
2SO IF 
300 OA 
CRNDCO 
310 IF 
A CZZ3 =i 
320 POI 
Z3<203 
330 IF 
BB CZZ3 
340 BB 
350 LO 

CCOO 
3:JW=G 
360 CR 
EK C176I 
370 IF 
360 IF 
3SO IF 
3 : ? tt6 
? tt6 ; Cl 
400 IF 
:GOTO 
410 IF 

THEN i 
420 NE 
O , O , O , i 
430 POI 
OT 1,0 
1,0: DRi 
440 MM 
3 =173: I 
450 COI 
TO 17, 
460 H = l 

7 THEN 
-128 
470 COI 
RAWTO 
480 IF 


> THEN 
>DKE 7 


= ME M— 4:FP=CMEM-173*256-1:SP= CMEM 
6—1:POKE 53277,O:POKE 752,1:SETC 
,0,0:IF RU THEN 240 

R H = 0 TO 511:POKE CH#256 + K,PEEK C 
H3:NEHT H:POKE 756,CH:? CHR$C125 

"ENTER DEVICE NAME - CASSETTE US 
SIMPLY USE C: - DISK USERS USE 
FILENAME AS USED IN CREATOR" 

AP 14G:INPUT DS:IF DSC1,13="C" T 
CHRSC1253:GOTO ISO 
DSCl,13<>"D" THEN ? CHR$C1253:G 
O 

CHRSC1253:? "READY DISK AND THEN 
ON KEYBOARD" : POKE 7 

:GOSUB 1600 
EN HI,4 jOjD ?:GOTO 200 
"PRESS [JWTTJ O H RECORDER AND THEN 
PRESS I =1 ^1 JTfc =1ZI ON KEYBOARD" : POKE 
5 : OPEN ttl , 4, O, D$ 

AP 40000:FOR R=1 TO 20:FOR C=1 T 
ET ttl. A: POKE FP+ CR —13 *60 + C , A 
HT C:NEHT R:FOR R=1 TO 20:FOR C= 
O : GET ttl , A : POKE SP+ CR —13 *60 + C , A : 

: NEHT R 

R H = 8 TO 127: GET ttl. A: POKE CH*25 
NEHT H : GET ttl , LYN : DIM AS CLYN3 : FO 
TO LYN : GET ttl , A 

CK,K3=CHR$CA3 : NEHT H : GET ttl , ST AT 
ttl, sc: GET ttl, R: GET ttl, C: INPUT tt 
ET ttl, HA: GET ttl, HB: CLOSE ttl 
OSE ttl: IF ST AT = 0 THEN NHA = HA : NHB 
I = LI:NR = R:NC = C:NSC = SC 
KE 55S,G:FOR H=5G4 TO 511:READ A 
H+CH#256,A:NEHT H:FOR H=256 TO 2 
D A:POKE H+CH#256,A:NEHT H 
R H=224 TO 231:READ A:POKE H+CH* 
NEHT H 

SUB 1620:MMCG3=170:MMC13=171:MMC 
:MMC33=173:MMC43=174:GOSUB 430 
R ZZ=G TO 4:JW=1 
MM CZZ3 =G THEN JW=G:GOTO 360 
CZZ3=AACZZ3 :OB CZZ3=BBCZZ3 :SS = INT 
3*23+l:ON SS GOTO 310,330 
PEEKC175G3<CAA£ZZ3*83+48 THEN A 
A A CZZ3 —1-H-C A A CZZ3 > 03 : GOTO 350 
KE 53278,O:AACZZ3=AACZZ3+1*CAACZ 
:GOTO 350 

PEEK C178G3 < CBBCZZ3*163 +32 THEN 
=BBCZZ3-i*£BBCZZ3>03:GOTO 3SO 
CZZ3 =BBCZZ3 +1*CBBCZZ3 <103 
CATE AACZZ3,BBCZZ3,CC:COLOR 1:IF 
THEN AA CZZ3=OA CZZ3 :BB CZZ3=OB CZZ 

= PEEK C532523 :ZH = PEEK C175G3 :ZY = PE 
03:IF CR AND RA THEN 840 
PEEK C17523 THEN GOSUB lllO 
PEEK C532533 THEN POKE 53278,O 
JW=1 THEN POSITION OACZZ3,OBCZZ 
;CHR$C03:POSITION AACZZ3,BBCZZ3: 
HRS CMMCZZ3 3 

PEEKC7643<255 THEN POKE 764,255 
820 

PEEKC5327S3>0 AND PEEKC5327S3<7 
GOSUB 1500 

HT ZZ:RA=1:POKE 54286,1S2:SOUND 
O:GOTO 280 

KE 1752,O:POKE 55S,0:C0L0R 33:PL 

:DRAWTO 18,O:DRAWTO 18,8:DRAWTO 
AWTO 1,0 

C03 =170:MMC13 =171:MMC23 =172:MMC3 
MMC43 =174 

LOR O:FOR Y=1 TO 7:PLOT 2,Y:DRAW 
Y : NEHT Y 

PEEKCCR-13*6Q+C+FP3:HH=H:IF H>12 
POSITION 15,6:? tt6; CHRS C153 : H = H 

LOR 130:IF H> 63 THEN PLOT 13,Q:D 
15,O:H = H — 6 4 

H> 31 THEN PLOT 4,0:DRAWT0 6,Q:H 


= H — 3 2 

4SO COLOR 131:IF K>15 THEN PLOT 18,3:D 

RAWTO 18,5:K=K—16 

500 COLOR 130:IF K>3 THEN PLOT 13,8:DR 

AWTO 15,8:H=H—4 

510 IF H>1 THEN PLOT 4,8:DRAWTO 6,8:H= 

H — 2 

520 COLOR 131:IF K>Q THEN PLOT 1,3:DRA 

WTO 1,5 

530 HH=PEEKCCR-13*60+C+SP3:NHH=HH 
540 COLOR 33:IF KK>127 THEN PLOT 5,4:D 
RAWTO 7,4:PLOT 12,4:DRAWTO 14,4:HH=HH- 
128 

550 IF HH> 63 THEN COLOR 7:PLOT S,6:HH = 
HH-64 

560 IF HH> 31 THEN COLOR 5:PLOT 13,2:HH 
= H H — 3 2 

570 IF HH>15 THEN COLOR 6:PLOT S,4:DRA 
WTO lO,4:HH=HH-16 

580 IF HH> 7 THEN COLOR 136:PLOT S,2:CO 
LOR 137:PLOT 10,2:HH=HH-8 

5SO IF HH> 3 THEN COLOR 4:PLOT 6,6:HH = H 
H — 4 

600 COLOR 33:IF KK>1 THEN PLOT 12,1:DR 

AWTO 12,4:KK=KK—2 

610 IF HH>0 THEN PLOT 7,7:DRAWTO 7,4 
620 POKE 53278,0:FOR QW=0 TO 4 
630 AA COM3 =INTCRND C03*123 +4:BB COM3=INT 
CRND C03*33 +3:LOCATE AA COM3 ,BB COM3 ,CC:I 
F CCOO THEN 630 

640 POSITION AACOW3,BBCQW3:? »6;CHRSCM 
M CO W3 3 : NEHT OM:FOR H = 1 TO CC>403 + CC>20 
3 +1 

650 Qd = INT CRND CD3#53 :IF MMC003>100 THE 
N MMCQQ3 =MMCOCi3 -128 : POSITION A A COOS , BB 
cans:? H6;CHRSCMMC0033:NEHT H : GOTO 670 

660 H=H—1:NEHT H 

670 SETCOLOR O,NK+8,8:SETCOLDR 4,NHH+1 
4,6:RA = Q:CC= CC + 76O3*CC>403 + CC + 3803*CC> 
20 AND C<413+C*CC<213:RN=CR-13*20+CC 
680 IF RN=40O OR RN=SOO THEN POSITION 
17,1:? tt6j CHRS C2243 

690 IF RN=120O THEN POSITION 17,1:? »6 
;CHRS C2553 

700 POKE 656,1:POKE 657,28:? SCj SPOKE 
656,2:POKE 657,14:? RNj" "j:POKE 657 

710'POKE'756^CH:POKE 1756,O:IF LI=Q TH 
EN 730 

720 POKE 77,O:POKE 1755,39:POKE 53248, 

0:POKE 764,255:POKE 1750,HA:P0KE 1780, 

HB:POKE 53248,HA:POKE 559,62:RETURN 
730 POP :POKE 54286,64:POKE 53765,152: 
POKE 555,62:POKE 1780,HB:P0KE 53248,HA 

:IF PEEKC532753=6 THEN 7SO 
740 GOTO 730 

750 ? CHRS C1253 : OPEN ttl , 4 , O , "K" : POKE 7 

64,255 

760 ? "DO YOU WANT TO 0EPLAY THIS SAME 

DUNGEON OR iOAD IN ANOTHER ONE? 
" : GET ttl, A 

770 IF A=76 THEN POKE 53277,O:GRAPHICS 
O : RUN 

780 IF A=82 AND STAT=1 THEN RU=1:GOTO 
810 

750 IF A=82 THEN HA=NHA:HB=NHB:LI=NLI: 
R=NR:C=NC:SC=NSC:RU=1:GOTO 810 
800 POKE 764,255:? CHRSC1253:GOTO 760 
810 POKE 53248,O:POKE 53249,O:RESTORE 
:GOTO 120 

820 POKE 54286,64:POKE 53765,152:IF PE 
EK C7643 <255 THEN POKE 764,255:POKE 542 

86,152:GOTO 410 
830 GOTO 820 

840 IF C R = 1 OR C R = 4 OR CR = 5 OR CR = 5 TH 
EN POKE 54286,64:POKE 53765,152:POKE 5 
55,O:GOSUB 1050:GOTO 570 

850 IF CR=8 AND ZK>115 AND ZH<137 AND 
ZY> 45 AND ZY <81 THEN GOSUB 1020:GOTO 5 
70 

860 IF CR=8 AND ZK>177 AND ZY<66 AND R 

N=1200 THEN GOSUB 1050:LI=LI+1:GOTO 13 
50 

870 IF CR=8 AND ZH>177 AND ZY<66 THEN 

R=1:C=C+1:GOSUB 1050:LI=LI+1:GOSUB 124 
O:HA=85:HB=145:GOSUB 430:GOTO 280 
880 IF CR=8 THEN POKE 555,0:P0KE 54286 

,64:POKE 53249,O:POKE 207,0:G0T0 1160 

850 GH=CR-13*6Q+C+SP:NSP=GH-2048 
500 IF CR=2 AND ZK<104 THEN SC=SC+25Q: 

POSITION 6,6:? tt6; CHRS C03 : GOSUB 550 : PO 
KE GH,PEEKCGH3-4:GOTO 580 

510 IF CR=2 AND ZK>145 AND ZY<55 THEN 

SC = SC + 10OO : POSITION 13,2:? tt6;CHRSC03: 
GOSUB 990:POKE GH,PEEKCGH3-32:GOTO 580 

520 IF CR=2 AND ZK>161 AND ZH<176 AND 

ZY>115 THEN LI=LI+5:GOSUB 1040:POKE NS 
P,PEEKCNSP3-128:GOTO 980 
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330 IF CH=2 AND Z¥>110 THEN POSITION 3 

,6:? tte; CHR$ CO] : LI = LI + 1 : GDSUB lOOOlPDK 
E GH f PEEK (GH3 —64:GOTO 380 

340 IF CR=2 AND ZY<liO THEN POSITION 3 

,4:? tt6;.GDSUB 1010:F0R QC = Q TO 4: 

MM(QC3 =0:F = 1 

350 IF F THEN F = Q:POSITION AA (QC3 ,BB (Q 

C3:? ..NEHT QC:POKE GH,PEEK (GH3 —1 

6 

360 GOTO 380 

370 POKE 1750jHA:POKE 1780,KB:GDSUB 43 
0:POKE 53278,O:GOTO 370 
380 POKE 53278,O:GOTO 370 

330 SOUND 0,25,10,8:DE=1 A 1:SOUND 0,0,0 
,0:POKE 656,1:POKE 657,28:? SC;:RETURN 


±000 SOUND O,200,lO,8:DE=1 A 1:SOUND 0,0 
,0,O:POKE 656,2:POKE 657,33:? LI;:RETU 

R N 

101O SOUND 0,150,2,8:DE=1 A 1 A 1:SOUND O, 
O,O,O:SC=SC+500:POKE 656,1:POKE 657,28 
:? SCJ:RETURN 

102O HA = 83:KB=145:LI=LI—1:SOUND 0,100, 
2,8:SOUND 1,lOl,2,8:DE=1 A 1 A 1 A 1:SOUND O 
,O,O,O:SOUND 1,0,0,0 

1030 CC=C:R=l:C=tCC<213+21»tCC>20 AND 

CC<41)+41»tCC>40):RETURN 

1040 POSITION 15,6:? »6;CHR$CO):SOUND 
0,100,10,8:DE=1 A 1:SOUND 0,0,0,0:P0KE 6 

56,2:POKE 657,33:? LI;:RETURN 
1050 POKE 54286,64:POKE 53248,O:POKE 1 
780,O:POKE 207,O:LI=LI-1:POKE 53278,0: 
POKE 53243,O:RETURN 

1060 GRAPHICS 1:POKE 53774,64:POKE 16, 
64:TR=PEEK(7103:SETCOLOR 2,O,O:DL=PEEK 
(5603+256#PEEK(5613 

1070 POKE DL+14,23:POKE DL+18,2:POKE 5 
4276,4:SETCOLOR O,8,4:POSITION 5,3:? H 
6 ; "ROBOT DUNGEON 11 

10 80 PO SITION 4,11:? tt6; M rin^ start □ 
0 IBJiHil " : POSITION 3,13:? 06 ; 11 ANSCHUETZ 
/HEISGERBER/ANSCHUETZ" 

1030 IF PEEK (532733=6 THEN POKE 710,TR 
:GOTO HO 

nee goto 1030 

1110 WH=INT((PEEK(17533-453/83 
1120 WY=INT((PEEK(17543-273/163 
1130 LOCATE HK,HY,HZ:FOR H=Q TO 4:IF H 
Z=MM(H3 THEN MM(K3=0:POSITION AA(K3,BB 
(H3:? 06;CHR$(03:SC=SC+10:GOSUB 1150 
1140 NEKT H:POKE 656,l:POKE 657,28:? S 
C;:POKE 53278,O:POKE 1752,O:RETURN 
1150 SOUND 0,200,12,10:DE=1^1:SOUND O, 
0,0,0:RETURN 

1160 POKE 1756,O:POKE 53765,132:YH=PEE 
K (17503 :VV = PEEK(17803 :POKE 553,O 
1170 IF VH<64 THEN C=C~1:HA=184:HB=37: 
GOSUB 430:GOTO 280 

1180 IF VH>184 THEN C=C+1:HA=64:HB=37: 

GOSUB 430:GOTO 280 

1130 IF VH<128 THEN 1220 

1200 IF VY<128 THEN C = C + (R/2<>INT(R/23 
3:R=R+1:KA=83:KB=143:GOSUB 430:GOTO 28 
O 

1210 C=C+(R/2<>INT(R/2)3:R=R—1:KA=83:H 

B=47:GOSUB 430:GOTO 280 

1220 IF YY<128 THEN C = C-(R/2 = INT(R/233 
:R=R+1:KA=161:KB=143:GOSUB 430:GOTO 28 


O 

1230 C = C-(R/2 = INT(R^23 3 :R = R-i:KA = 161:H 
B=47:GOSUB 430:GOTO 280 

1240 POKE 54286,64:POKE 53765,132:POKE 
553, O 

1250 COLOR 33:FOR SY=0 TO 3:PLOT Q,SY: 
DRAHTO 13,SY:NEHT SY:COLOR O:PLOT 0,0: 
DRAHTO 5,0:DRAHTO 11,6 

1260 DRAHTO 13,6:PLOT 0,1:DRAHT0 5,1:D 
RAHTO 11,7:DRAHTO 13,7:PLOT 0,2:DRAHT0 
5,2:DRAHTO 10,7:PL0T 12,4 

1270 DRAHTO 13,4:PLOT 12,5:DRAHTO 13,5 
:COLOR 131:PLOT ll,6:DRAHTO 11,7 
1280 POKE 1780,66:POKE 553,62:FOR PH=4 
8 TO 88 STEP 8:POKE 53248,PH:GOSUB 147 
0:FOR H=1 TO 75:NEKT H:NEKT PK 
1230 FOR PY = 82 TO 146 STEP 16:POKE 178 
0,PY:P0KE 53248,PK:GOSUB 1470:PK=PK+8: 
FOR H=1 TO 75:NEKT H:NEKT PY 
1300 FOR SK=31 TO 24 STEP -1:POKE CH*2 
56+SK,O:FOR H=1 TO 15:NEKT H:SOUND 0,S 
K+50,lO,8:NEKT SK:SOUND 0,0,0,0 
1310 POKE 53248,PK:GOSUB 1470:FOR H=1 
TO lOO:NEKT H:POKE 53248,PK+B:GOSUB 14 
70 

1320 FOR SH=24 TO 31:POKE CH*256+5K,56 
IFOR H=1 TO 15:NEKT H:SOUND 0,SK+50,10 
,8:NEKT SK:SOUND 0,0,0,0 

1330 FOR PH=152 TO ZOO STEP 8:POKE 532 
48,PK:GOSUB 1470:FOR H=1 TO 75:NEKT H: 
NEKT PK 

1340 POKE 553,O:COLOR O:PLOT 0,0:DRAHT 


O 0,3:DRAHTO 13,3:DRAHTO 13,0:RETURN 
1350 POKE 54286,64:POKE 53765,132:POKE 
553,O:MP=14 

1360 COLOR 33:FOR SY = Q TO 3:PLOT Q,SY: 
DRAHTO 13,SY:NEKT SY:COLOR O:FOR SY=Q 
TO 7:PLOT 12,SY:DRAHTO 13,SY:NEKT SY 
1370 FOR SY=4 TO 7:PLOT O,SY:DRAHTO 7, 
SY:NEKT SY:COLOR 131:FOR SY=6 TO 7:PLO 
T 8,SY:DRAHTO 11,SY:NEHT SY 
1380 POSITION INT((2Q-LEN(A$))/2),3:? 
06; A$ 

1330 POKE 1780,146:POKE 553,62:FOR PH= 
48 TO 104 STEP 8:POKE 53248,PK:GOSUB 1 
470:FOR H=1 TO 75:NEKT H:NEKT PK 
1400 FOR SK=31 TO 24 STEP -1:POKE CH»2 

56+SK,0:F0R H=1 TO 15:NEKT H:SOUND 0,5 

K+50,lO,8:NEKT SK:SOUND 0,0,0,0 
1410 FOR PH=112 TO 144 STEP 8:POKE 532 
48,PK:GOSUB 1470:FOR H=1 TO 75:NEKT H: 
NEKT P K 

1420 FOR SH=24 TO 31:POKE CH*256+SK,56 

IFOR H=1 TO 15:NEKT H:SOUND 0,SK+50,10 
,8:NEKT SHI SOUND 0,0,0,0 
1430 POKE 53248,152:GOSUB 1470 
1440 POSITIO N 14 ,1:? 06 : " TOTT1 " : POSITION 
14,2:? tt6; "EEH^" : POSITION 14,3:? 06; M 

1450 FOR EK=1 TO 4:POKE 17SO,133:FOR H 

=1 TO lO:NEKT H:POKE 1780,146:GOSUB 14 
70:FOR H=1 TO lO:NEKT HiNEKT EK 
1460 GOTO 1460 

1470 SOUND O,66,12,8:FOR HN=1 TO 15:NE 

KT HN:SOUND 0,0,0,0 

1480 MP=MP-l:IF MP<3 AND MP>0 THEN POS 

ITION 0,7:? 06;M$(MP,89 
1430 RETURN 

1500 POKE 54286,64:POKE 53765,132:? CH 

RS (1253 

1510 IF DS(1 J 1)= M D M THEN 1530 

1520 ? "PRESS ANDjaHi-Ja ON RECOR 

DER AND THEN PRESS ON KEYBO 

ARD":GOTO 1540 

1530 ? "READY DISK AND THEN PRESS 

[Id ON KEYBOARD" : POKE 764,255:GOSU 


B 1600 

1540 POKE 764,255:OPEN 01,8,O,D$:FOR N 
R = 1 TO 20:FOR NC = 1 TO 60:NA = PEEK(FP+(N 
R-1)»60+NC):PUT 01,NA:NEKT NC 
1550 NEKT NR:FOR NR=1 TO 20:FOR NC=1 T 
O 60:NA=PEEK(SP+(NR-1)#60+NC):PUT 01,N 
A:NEKT NC:NEKT NR 

1560 FOR P=8 TO 127:NA=PEEK(CH#256+P): 
PUT 01,NA:NEKT P 

1570 PUT 01,LEN(A53:FOR P=1 TO LEN(A$3 
:PUT 01,ASC(A$(P,P3 3 :NEKT P:PUT 01,O 
1580 PRINT 01,SC:PUT 01,RI PUT 01,C:PRI 
NT 01,LI:PUT 01,KA:PUT 01,KB:CLOSE 01: 
GOSUB 1730:POKE 54286,132 
1530 RETURN 

1600 IF PEEK (7643 <255 THEN RETURN 
1610 GOTO 1600 

1620 PM=(MEM—123*256:FOR H=PM TO PM+13 

:READ A:POKE K,A:NEKT KI FOR H = PM+256 T 

O PM+261:READ A I POKE K,A:NEKT K 

1630 FOR K=1536 TO 1706:READ A:POKE K, 

A:NEKT K:FOR H=(MEM-103*256 TO (MEM-IO 

3 #256+ 248:READ A I POKE K,A 

1640 IF A=86 THEN POKE K,MEM-10 

1650 NEKT K:FOR H=(MEM-23*256 TO (MEM- 

23 *256 + 68:READ A I POKE K,A 

1660 IF A=86 THEN POKE K,MEM-10 

1670 NEKT K:POKE (MEM-103*256+243,MEM- 

2 

1680 FOR H=207 TO 203:POKE K,O:NEKT K: 
POKE 623,1:POKE 1788,PM/256:POKE 53277 
,3:POKE 54273,PM/256—4 

1630 POKE 1784,14:POKE 1785,6:POKE 175 

O,83:POKE 1780,145:POKE 704,52:P0KE 7Q 
5,134:POKE 1752,O:K = USR (16363 
1700 FOR H=PM TO PM+13:POKE K,O:NEKT K 


1710 DL=PEEK(5603+256*PEEK(5613:POKE D 
L + 15,134:POKE DL + 18,130 I POKE DL + 13,130 
IPOKE DL+20,130 

1720 POKE 512,111:POKE 513,MEM-IO:POKE 
752,1:POKE 1756,1:IF STAT THEN HA=83: 
KB=145:LI=1O:R=1:C=1:SC=0 

1730 ? CHRS (1253 :TJ = PEEK(6603 +256*PEEK 

(6613 IFOR EA = 0 TO 33:POKE EA + TJ,l:POKE 
EA+TJ+120,1:NEKT EA 

1740 FOR EA=40 TO 80 STEP 40:POKE TJ+E 
A,1:POKE TJ+EA+33,1:NEKT EA 
1750 POKE 656,1:POKE 657,2:? AS;:POKE 
656,1:POKE 657,21:? "SCORE: "JSC; 

1760 POKE 656,2:POKE 657,2:? "ROOM NUM 
BER ";RN;" ";:POKE 656,2:POKE 657,21:? 

"HIT POINTS: ";LI;:RETURN 
1770 DATA 0,0,0,224,160,131,170,234,3, 
3,15,15,63,63,255,255,0,24,24,24,24,0, 
24, O 
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±780 DATA 0,56,254,84,40,56,146,124,56 
,56,56,40,40,108,0,0,0,0,0,16 
±780 DATA ±62,3, ±88,24-4,6,240,89,56,22: 
1,240,6,240,83,141,254,6,106,141,255,6 
,±42,253,6,24,±68,0,±08,253,6,24,±08 
±800 DATA 252,6,±33,204,±33,206,±88,24 
O,6,±33,203,173,254,6,±33,205,±88,248, 
6 ,170,232,46,255,6,±44,±6,±68,±77 
±8±0 DATA 203,145,205,±68,O,±45,283,±3 
6 , 202,208,244,76,87,6, ±60, 0 , ±77,203, ±4 
5,285,168,0,145,203,200,202,208,244 
±820 DATA ±74,253,6, ±73,254,6., 157,240, 
6,±88,236,6,240,48,±33,203,24,±38,±41, 

253.6, ±08,235,6, ±33,204,24,173,253 
±830 DATA 6,±08,252,6,±33,206,±88,240, 
6,133,205,±88,248,6,±70,±60,O,±77,203, 
±45,205,200,202,208,248,±74,253,6,168 
±840 DATA 0,157,236,6,202,48,3,76,2,6, 
76,88,228,0,0,±04,±68,7,±62,6,±60,O,32 
,82,228,86 

±850 DATA 72,±38,72,±65,207,20±,±,240, 
34,173,132,2,20±,±,240,5±,±73,±20,2,20 
±,±5,240,44,±73,2±4,6,±33,208,±73,244 
±860 DATA 6,±4±,245,6,±73,±20,2,±33,20 
8,±68,±,±33,207,2±6,24,±66,208,165,208 
,±25,78,86,±33,208,±4±,±,208,24,173 
±870 DATA 245,6,125,85,86,14±,245,6,±4 
±, ±0,2±2,±68,±±±,14±,0,2,±04,±70,104,6 
4,0,0,0,0,0,1,1,1,0,255,255,255 
±880 DATA 0,0,0,0,0,0,0,0,0,1,255,0,0, 
±,255,0,0,1,255,O 

±880 DATA 72,±38,72,±73,2±5,6,20±,±,24 
O,35,±68,±,±4±,2±5,6,2±6,24,174,120,2, 
±88,78,86,±08,2±4,6,±4±,2±4,6 
±800 DATA ±4±,O,208,24,±88,85,86,±08,2 

44.6, ±4±,244,6,24,±44,5,±68,O,±4±,2±5, 
6 , ±4±, ±0,2±2,±68,±73,±4±,0,2 

±8±0 DATA ±04,±70,±04,64,72,±73,5,208, 
201,0,240,48,201,4,240,±5,±68,0,234,23 
4,±4±,±,208,±33,207,234,234,234 
±820 DATA 24,±44,28,20±,4,208,25,±65,2 
08,±41,217,6,±73,245,6,±41,218,6,168,0 
,234,234,±41,1,208,133,207,±68,1 
±830 DATA ±41,216,6,168,0,234,234,234, 
±41,±0,212,±68,0,±41,0,2,±68,84,141,1, 
2,±04,64 

±840 DATA 72,±73,220,6,20±,±,240,46,21 
6,±73,218,6,24,105,1,±41,218,6,201,60, 
208,±3,±68,82,±41,4,210,168,±83,±41,5 
±850 DATA 2±0,24,±44,±8,20±,±20,208,±5 
,168,80,±41,4,210,168,±83,±41,5,210,±6 
8 , O, ±41,2±8,6,141,10,212,168,0,141,0,2 

I860 DATA 168,86,141,1,2,104,64 
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ROBOT DUNGEON - 2017 


2 REM MODIFIED OH 7/31/2017 BY ERIC OH 
SCHUETZ TO ALLOH VARIABLE SIZE OF MAZE 

FROM 5 TO 20 

5 REM MODIFIED CODE HAS VARIABLES SIZE 
, MAHSIZE, AND CHEAT 

IO REM ROBOT DUNGEON 

20 REM BY AHSCHUETZ/HEISGERBER/ANSCHUE 
TZ 

30 REM Cc J 1985, AHTIC PUBLISHI NG 
40 ? M >SHARMING ! JIMM JiTTM HRITES 

TO" 

SO ? "YOUR DISK!!!" 

60 ? :? "Do you want instructions CY^N 

3 ?■■ j 

62 POKE 764,255:POKE 1540,15 

65 IF CPEEK C7643 =43 OR PEEKC7643=1073 

THEN POKE 764,255:RUN "D:ROBOHELP" 

67 IF CPEEK C7643 =35 OR PEEK£7643=993 T 
HEN POKE 764,255:GOTO lOO 
70 GOTO 65 

IOO MAKSIZE=20:GOTO 1060 

IIO GRAPHICS 2:POKE 53774,64:POKE ±6,6 
4:MEM=PEEKC1D63 :DIM AA C43 ,BB C43 ,MM£4) , 
OA C43 , OB C43 , D$ C±23 , M$ C83 : M$ = " BK33 11 

±20 CH = MEM—4:F P =£MEM-±73*256-±:SP= CMEM 
— 93 #2 5 6 —±:POKE 53277,0:POKE 752,±:SETC 
OLOR 3,G,0:IF RU THEN 240 

±30 FOR H = 0 TO 5±±:POKE CH*256+K,PEEKC 
57344+H3:NEKT H:POKE 756,CH:? CHR$C±25 
3 

±35 CHEAT=0:? CHH$C125):? "WALK THROUG 
H HALLS AND MONSTERS? CY^N3" 

±37 TRAP ±35:INPUT D$:IF D$C±,±J="Y" T 
HEN CHEAT=± 

±36 ? CHRSC±253 

±40 ? "ENTER DEVICE NAME - CASSETTE US 

ERS SIMPLY USE C: - DISK USERS USE 

SAME FILENAME AS USED IN CREATOR" 

±50 TRAP ±40:INPUT D$:IF D$C±,±J="C" T 
HEN ? CHRSC±253:GOTO ISO 

±60 IF DS£±,±3 0"D" THEN ? CHR$ C±253 : G 
OTO ±40 

±70 ? CHRSC±253:? "READY DISK AND THEN 

PRESS ON KEYBOARD" : POKE 7 

64,255:GOSUB ±600 
±80 OPEN tt±,4 jOjD ?:GOTO 200 
ISO ? "PRESS [JWTTj O N RECORDER AND THEN 
PRESS I =1 ^1 JTfc =1ZI ON KEYBOARD" : POKE 
764,255:OPEN tt±,4,0,D5 

200 TRAP 40000 : INPUT tt±,SIZE:IF SIZE<5 
OR SIZE}MAHSIZE THEN ? "ERROR: SIZE N 
OT BETHEEN 5 AND 20":END 

205 FOR R = ± TO SIZE:FOR C = ± TO 5IZE*3: 
GET tt± , A : POKE FP+ CR-±3*5IZE*3 + C , A : NEKT 
C:NEKT R 

2±0 FOR R = ± TO SIZE:FOR C = ± TO 5IZE*3: 
GET tt± , A : POKE 5P+ CR-±3*5IZE*3 + C , A : NEKT 
C:NEKT R 

220 FOR H = 8 TO ±27 : GET tt±,A:POKE CH*25 

6 + H , A : NEKT H : GET tt± , LYN : DIM AS CLYN3 : FO 
R H = ± TO LYN : GET tt±, A 

230 AS CH , H3 =CHRS C A3 : NEKT H : GET tt± , ST AT 
:INPUT tt± , SC : GET tt± , R : GET tt±,C: INPUT tt 
±, LI: GET tt± , HA : GET tt±,HB: CLOSE «± 

240 CLOSE tt± : IF STAT = 0 THEN NHA = HA : NHB 

= HB:NLI = LI:NR = R:N C = C:NSC = SC 

250 POKE 55S,O:FOR H = 504 TO 5±±:READ A 

:POKE K+CH#256,A:NEKT H:FOR H = 256 TO 2 

63:READ A:POKE K+CH*256,A:NEKT H 

260 FOR K=224 TO 23±:READ A:POKE K+CH* 

256,A:NEKT H 

270 GOSUB ±620:MMC03=±70:MMCI3=±7±:MMC 
23 =±72:MMC33 =±73:MMC43 =±74:GOSUB 430 
280 FOR ZZ=0 TO 4:JH=± 

2SO IF MM CZZ3 =0 THEN JH=0:GOTO 360 

300 OA CZZ3 =AA CZZ3 :OB CZZ3 =BB CZZ3 :SS = INT 

CRND C03#23+1:OH SS GOTO 310,330 

3±0 IF PEEK £±7503 < CAA £ZZ3 #83+48 THEN A 

A£ZZ3=AA£ZZ3-1*£AA£ZZ3>03:GOTO 350 

320 POKE 53278,0:AA £ZZ3 = AA £ZZ3 +1# £AA £Z 

Z3<203:GOTO 350 

330 IF PEEK £±7803 < £BB £ZZ3*±63 +32 THEN 
BB£ZZ3=BB£ZZ3-±*£BB£ZZ3>03:GOTO 350 
340 BB EZZ3=BBEZZ3+±*£BBEZZ3 <±03 
350 LOCATE AAEZZ3,BBEZZ3,CC:COLOR ±:IF 
CCOO THEN AA EZZ3 =OA EZZ3 : BB EZZ3 =OB EZZ 
3:JH=0 

360 CR = PEEK C532523 :ZH=PEEK£±7503 :ZY = PE 
EK £17803 :IF CR AND RA THEN 840 
370 IF PEEK £±7523 THEN GOSUB ±±IO 
380 IF PEEK C532533 THEN POKE 53278,O 
3SO IF JH=± THEN POSITION OACZZ3,OBCZZ 
3:? H6;CHRS£03:POSITION AACZZ3,BBEZZ3: 
? tt6;CHRSEMMEZZ33 

400 IF PEEKC7643<255 THEN POKE 764,255 
:GOTO 820 

4±0 IF PEEKC5327S3>0 AND PEEK£532733<7 
THEN GOSUB ±500 

420 NEKT ZZ:RA=±:POKE 54286,±32:SOUND 


O,O,O,O:GOTO 280 

430 POKE ±752,O:POKE 553,Q:COLOR 33:PL 
OT ±,Q:DRAHTO ±8,0:DRAHTO ±8,8:DRAHTO 
±,8:DRAHTO ±,0 

440 MMC03 =±70:MMEI3=±7±:MMC23 =±72:MMC3 
3 =±73:MMC43 =±74 

450 COLOR O:FOR Y=± TO 7:PLOT 2,Y:DRAH 
TO ±7,Y:NEKT Y 

460 K = PEEK £ £R-±3*SIZE*3 + C + FP3 :NH = H:IF 
H> ±27 THEN POSITION ±5,6:? 06;CHRSE±53 
: H = H — ± 2 8 

470 COLOR ±30:IF K>63 THEN PLOT ±3,0:D 
RAHTO ±5,O:K=K—64 

480 IF K>3± THEN PLOT 4,0:DRAHT0 6,0:K 

= K — 3 2 

430 COLOR 131:IF K>±5 THEN PLOT ±8,3:D 
RAHTO ±8,5:H=H—±6 

500 COLOR ±30:IF K>3 THEN PLOT ±3,8:DR 
AHTO ±5,8:H=H—4 

5±0 IF K>± THEN PLOT 4,8:DRAHTO 6,8:K= 
H — 2 

520 COLOR 131:IF K>0 THEN PLOT ±,3:DRA 
HTO ±,5 

530 KK = PEEK £ £R-±3*SIZE*3 + C + 5P) :NHH = HH 
540 COLOR 33:IF KK>±27 THEN PLOT 5,4:D 
RAHTO 7,4:PLOT ±2,4:DRAHTO ±4,4:KK=KK- 
±28 

550 IF HH>63 THEN COLOR 7:PLOT 3,6:HH= 
KK-64 

560 IF KK>3± THEN COLOR 5:PLOT ±3,2:HH 
= K K — 3 2 

570 IF HH>±5 THEN COLOR 6:PLOT 3,4:DRA 
HTO IO,4:HH=HH-16 

580 IF HH>7 THEN COLOR ±36:PLOT 3,2:CO 
LOR ±37:PLOT ±0,2:KK=KK-8 

530 IF KK>3 THEN COLOR 4:PLOT 6,6:HH=H 
K — 4 

600 COLOR 33:IF KK>± THEN PLOT ±2,±:DR 
AHTO ±2,4:HH=HH—2 

6±0 IF KK>0 THEN PLOT 7,7:DRAHTO 7,4 
620 POKE 53278,0:FOR QH=0 TO 4 
630 AA COH3 =INT CRND C03#±23 +4:BB COH3 =INT 
CRND C03*33 +3:LOCATE AA COH3 ,BB COH3 ,CC:I 
F CCOO THEN 630 

640 POSITION AACOH3,BBCOH3:? «6;CHRSCM 
M COH3 3 :NEKT OH:FOR H = ± TO CC>SIZE»23 + C 
OSIZEJ +± 

650 QQ=INTCRNDC03*53:IF MMC003>±00 THE 
N MMCOD3=MMC003-±28:POSITION AAC003,BB 
C003:? tt6jCHRSCMMC0033:NEKT K:GOTO 670 

660 H=H—±:NEKT K 

670 SETCOLOR O,NH+8,8:SETCOLOR 4,NHH+± 
4,6:RA=0 

675 CC= CC + 2*SIZE*C5IZE-±33*CC>SIZE*2) + 
CC + 5IZE#CSIZE —±3 3#CC>SIZE AND C<C5IZE* 
2 + ±3 3+C*CC<CSIZE + ±3 3 
677 RN= CR-±3*SIZE + CC 

680 IF RN=SIZE#5IZE OR RN=2*SIZE*5IZE 
THEN POSITION ±7,±:? tt6; CHRS C2243 
630 IF RN=3*5IZE*5IZE THEN POSITION ±7 
, ± : ? tt6 ; CHRS C2553 

700 POKE 656,±:POKE 657,28:? SCj:POKE 
656,2:POKE 657,±4:? RNj" "j:POKE 657 

7±0'POKE'756^CH:POKE ±756,0:IF LI=Q TH 
EN 730 

720 POKE 77,O:POKE ±755,33:POKE 53248, 

0:POKE 764,255:POKE ±750,KA:P0KE ±780, 

KB:POKE 53248,KA:POKE 553,62:RETURN 
730 POP :POKE 54286,64:POKE 53765,±32: 
POKE 553,62:POKE ±780,KB:P0KE 53248,KA 

:IF PEEKC532733=6 THEN 7SO 
740 GOTO 730 

750 ? CHRS C±253 : OPEN tt± , 4 , O , "K" : POKE 7 

64,255 

760 ? "DO YOU HAHT TO 0EPLAY THIS SAME 

DUNGEON OR iOAD IN ANOTHER ONE? 
" : GET tt± , A 

770 IF A=76 THEN POKE 53277,O:GRAPHICS 
O : RUN 

780 IF A=82 AND STAT=± THEN RU=±:GOTO 
8±0 

730 IF A=82 THEN KA=HKA:KB=HKB:LI=NLI: 
R=NR:C=NC:SC=HSC:RU=±:GOTO 8±Q 
800 POKE 764,255:? CHRS C±253 :GOTO 760 
8±0 POKE 53248,O:POKE 53249,O:RESTORE 
:GOTO ±20 

820 POKE 54286,64:POKE 53765,±32:IF PE 
EK C7643 <255 THEN POKE 764,255:POKE 542 

86,±32:GOTO 4±0 
830 GOTO 820 

840 IF CHEAT THEN GOTO 850 

845 IF CR=± OR CR=4 OR CR=5 OR CR=3 TH 

EN POKE 54286,64:POKE 53765,±32:POKE 5 
53,O:GOSUB ±050:GOTO 370 

850 IF CR=8 AND ZK>±±5 AND ZK<±37 AND 

ZY> 43 AND ZY <8± THEN GOSUB ±020:GOTO 3 
70 

860 IF CR=8 AND ZK>±77 AND ZY<66 AND R 
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N=3*SIZE*SIZE THEN GOSUB 1050:LI=LI+1: 
GOTO 1350 

870 IF CR = 8 AND ZK>177 AND ZV<66 THEN 
R=1:C=C+1:GOSUB 1050:LI=LI+1:GOSUB 124 
O:XA=85:XB=145:GOSUB 430:GOTO 280 
880 IF CR=8 THEN POKE 559 f 0:POKE 54286 
f 64:POKE 5324?jO:POKE 207,0:G0T0 1160 

890 GH=tR-13*tSIZE»33+C+SP:NSP=GH-2048 

900 IF CR = 2 AND ZX<104 THEN SC=SC+250: 
POSITION 6,6:? tt6;CHR5(03 : GOSUB 990:PO 
KE GH,PEEK (GH3 —4:GOTO 980 

910 IF CR = 2 AND ZX>145 AND ZY<99 THEN 

SC=SC+1000:POSITION 13,2:? 06;CHR$C03: 
GOSUB 990:POKE GH,PEEK (GH3 —32:GOTO 980 

920 IF CR=2 AND ZX>161 AND ZK<176 AND 

ZV>115 THEN LI=LI+5:GOSUB 1040:POKE NS 
P,PEEKCNSP3-128:GOTO 980 

930 IF CR = 2 AND ZV>HO THEN POSITION 5 

,6:? tt6 J CHRS (03 : LI = LI + 1 : GOSUB lOOO : POK 
E GH,PEEK(GH3-64:GOTO 980 

940 IF CR = 2 AND ZV<HO THEN POSITION 3 

,4:? tt6j.GOSUB 1010:FOR QC=0 TO 4: 

MMCQC3=0:F=1 

950 IF F THEN F = 0:POSITION AA (OC3 ,BB CO 

C3 : ? tt6 ..NEKT QC : POKE GH, PEEK (GH3 —1 

6 

960 GOTO 980 

970 POKE 1750,HA:POKE 1780,KB:GOSUB 43 
0:POKE 53278,O:GOTO 370 
980 POKE 53278,O:GOTO 370 

990 SOUND 0,25,10,8:DE=1 A 1:SOUND 0,0,0 
,0:POKE 656,1:POKE 657,28:? SC;:RETURN 


1000 SOU 
,0,0:POK 
R N 

1010 SOU 
O,O,O:SC 
:? SC;:R 
1020 HA= 
2,8:SOUN 
, 0,0,0 : S 
1030 CC= 
*tCC>5IZ 
3*tCC> CS 
1040 POS 
0 , 100,10 
56,2:POK 
105O POK 
780,0:PO 
POKE 532 
106O GRA 
64:TR=PE 
(5603+25 
1070 POK 
4276,4:S 
6;"ROBOT 
10 8O PO S 
H lajfHii " 
/WEI5GER 
1090 IF 
:GOTO 11 
1100 GOT 
1110 HH= 
1120 HY= 
1130 LOC 
Z=MM(X3 
(HI : ? tt6 
1140 NEK 
C;:POKE 
1150 SOU 
O,0,0:RE 
1160 POK 
K (17503 : 
1170 IF 
GOSUB 43 
1180 IF 
GOSUB 43 
1196 IF 
1200 IF 
3:R = R + 1: 
0 

1210 C=C 
B = 4 7:GOS 
1220 IF 
:R = R + 1:H 
0 

1230 C=C 
B = 4 7:GOS 
1240 POK 
559, O 
1250 COL 
DRAHTO 1 
DRAHTO 5 
1260 DRA 
RAHTO 11 
5,2:DRA 
1270 DRA 


ND 0,200,10,8:DE=1 A 1:SOUND 0,O 
E 656,2:POKE 657,33:? LI;:RETU 


ND 0,150,2,8:DE=l A l A l:S 
=SC+50O:POKE 656,1:POKE 
ETURN 

89:KB=145:LI=LI-1:SOUND 
D 1,101,2,8:DE = 1 A 1M A 1: 
OUND 1,0,O,0 
C:R = 1:C=(CC <(SIZE + 13 3 + ( 
E AND CC<(SIZE*2+133+(S 
IZE*233:RETURN 
ITION 15,6:? »6;CHR$(03 
, 8:DE = 1 A 1:SOUND 0,0,0,0 
E 657,33:? LI;:RETURN 
E 54286,64:POKE 53248,0 
KE 207,0:LI=LI-1:POKE 5 
49,0:RETURN 

PHICS 1:POKE 53774,64:P 
EK(7103:SETCOLOR 2,0,0: 
6#PEEK(5613 

E DL+14,23:POKE DL+18,2 
ETCOLOR O,8,4:POSITION 
DUNGEON" 

ITION 4,11:? «6 
:POSITION 9,13:? «6;"AN 
BER/ANSCHUETZ" 

PEEK(532793=6 THEN POKE 
O 

O 109G 

INT((PEEK(17533-453 ^83 
INT((PEEK(17543-273/163 
ATE HK,HY,HZ:FOR H=0 TO 
THEN MM(K3=0:POSITION A 
;CHR$(03:SC=SC+10:GOSUB 
T H:POKE 656,1:POKE 657 
53278,O:POKE 1752,0:RET 
ND O,20O,12,10:DE=1 A 1:S 
TURN 

E 1756,0:POKE 53765,192 
YY=PEEK(17803:POKE 559, 
YX<64 THEN C=C~1:HA=184 
O:GOTO 280 

YX>184 THEN C = C + 1:HA=64 
0:GOTO 280 
YX<128 THEN 1220 
YY<128 THEN C=C+(R^2<>I 
HA=89:XB = 145:GOSUB 430: 


OUND O, 
657,28 

0 , 100 , 
SOUND O 

SIZE+13 
IZE*2 + 1 

: SOUND 
SPOKE 6 

SPOKE 1 
3278,O: 

OKE 16, 
DL = PEEK 

SPOKE 5 
5, 3 :? tt 

start Q 
SCHUETZ 


4 : IF H 
A(K3,BB 
1150 
, 28 : ? S 

URN 

OUND O, 

: YX = PEE 
0 

:HB=97: 

:HB=97: 


NT(R^23 
GOTO 28 


+(R/2<>INT(R/233:R = R-1:XA = 85:X 
UB 438:GOTO 280 

YY<128 THEN C=C-(R/2=INT(R/233 
A=161:XB=149:GOSUB 430:GOTO 28 

-(R/2 = INT(R^23 3 :R = R~1:XA = 161:X 
UB 438:GOTO 280 

E 54286,64:POKE 53765,192:POKE 

OR 33:FOR SY=0 TO 9:PLOT 0,SY: 
9,SY:NEXT SY:COLOR O:PLOT 0,0: 
, 0:DRAHTO 11,6 

HTO 19,6:PLOT 0,1:DRAHTO 5,1:D 

,7:DRAHTO IS,7:PLOT O,2:DRAHTO 
HTO 10,7:PLOT 12,4 

HTO 19,4:PLOT 12,5:DRAHTO IS,5 


:COLOR 131:PLOT ll,6:DRAHTO 11,7 

1280 POKE 1780,66:POKE 55S,62:FOR PX=4 

8 TO 88 STEP 8:POKE 53248,PX:GOSUB 147 

0:FOR H=1 TO 75:NEXT H:NEXT PX 

12S0 FOR PY = 82 TO 146 STEP 16:POKE 178 

0,PY:POKE 53248,PX:GOSUB 1470:PX=PX+8: 

FOR H=1 TO 75:NEXT H:NEXT PY 

1300 FOR SX=31 TO 24 STEP -1:POKE CH»2 

56+SX,O:FOR H=1 TO 15:NEXT H:SOUND 0,S 

X+50,lO,8:NEXT SX:SOUND 0,0,O,O 

1310 POKE 53248,PX:GOSUB 1470:FOR H=1 

TO 100:NEXT H:POKE 53248,PX+8:GOSUB 14 

70 

1320 FOR SX=24 TO 31:POKE CH*256+SX,56 

IFOR H=1 TO 15:NEXT H:SOUND 0,SX+5O,1O 
,8:NEXT SX:SOUND O,0,O,0 

1330 FOR PX=152 TO 200 STEP 8:POKE 532 
48,PX:GOSUB 1470:FOR H=1 TO 75:NEXT H: 
NEXT p X 

1340 POKE 55S,O:COLOR O:PLOT O,O:DRAHT 
O O,S:DRAHTO IS,S:DRAHTO 1S,0:RETURN 
1350 POKE 54286,64:POKE 53765,192:POKE 
55S,0:MP=14 

1360 COLOR 33:FOR SY=0 TO S:PLOT 0,SY: 

DRAHTO 19,SY:NEXT SY:COLOR O:FOR SY=0 
TO 7:PLOT 12,SY:DRAHTO 1S,SY:NEXT SY 
1370 FOR SY=4 TO 7:PLOT O,SY:DRAHTO 7, 
SY:NEXT SY:COLOR 131:FOR SY=6 TO 7:PLO 
T 8,SY:DRAHTO 11,SY:NEXT SY 
1380 POSITION INT((20-LEN(A$33/23,S:? 
tt6 ; AS 

13SO POKE 1780,146:POKE 55S,62:FOR PX= 
48 TO 104 STEP 8:POKE 53248,PX:GOSUB 1 
470:FOR H=1 TO 75:NEXT H:NEXT PX 
140O FOR SX=31 TO 24 STEP -1:POKE CH*2 
56+SX,0:FOR H=1 TO 15:NEXT H:SOUND 0,5 
X+50,10,8:NEXT SX:SOUND 0,0,O,O 
1410 FOR PX=112 TO 144 STEP 8:POKE 532 
48,PX:GOSUB 1470:FOR H=1 TO 75:NEXT H: 
NEXT P X 

1420 FOR SX=24 TO 31:POKE CH*256+SX,56 
IFOR H=1 TO 15:NEXT H:SOUND 0,SX+5O,1O 
,8:NEXT SX:SOUND 0,O,O,0 
1430 POKE 53248,152:GOSUB 1470 
1440 POSITIO N 14 ,1:? tt6 ; "HUE]" : POSITION 
14,2:? tt6; "EEH^" : POSITION 14,3:? »6j" 

1450 FOR EX=1 TO 4:POKE 17SO,13S:FOR H 
=1 TO 10:NEXT H:POKE 1780,146:GOSUB 14 
70:FOR H=1 TO 10:NEXT H:NEXT EX 
1460 GOTO 1460 

1470 SOUND O,66,12,8:FOR HN=1 TO 15:HE 

XT HN:SOUND O,0,O,0 

1480 MP=MP-l:IF MP<S AND MP>0 THEN POS 

ITION 0,7:? «6;M$(MP,83 
1490 RETURN 

1500 POKE 54286,64:POKE 53765,152:? CH 
RS (1253 

1510 IF DS (1,13="D" THEN 1530 
1520 ? "PRESS ANDJjEED on RECOR 

DER AND THEN PRESS ON KEYBO 

ARD":GOTO 1540 

1530 ? "READY DISK AND THEN PRESS 

UE\ ON KEYBOARD":POKE 764,255:GOSU 

B 160O 

1540 POKE 764,255 : OPEN ttl , 8, O, D $ : PRINT 
ttl,SIZE 

1545 FOR NR=1 TO SIZE:FOR NC=1 TO SIZE 

*3 : NA = PEEK (FP+ (NR-13 *SIZE*3 + NC3 : PUT ttl 
,NA:NEXT NC:NEXT NR 

1550 FOR NR=1 TO SIZE:FOR NC=1 TO SIZE 

*3 : NA = PEEK (5P+ (NR-13 *SIZE*3 + NC3 : PUT ttl 
,NA:NEXT NC:NEXT NR 

1560 FOR P=8 TO 127:NA=PEEK(CH#256+P3: 
PUT ttl, NA: NEXT P 

1570 PUT ttl, LEN (A$3 : FOR P = 1 TO LEN(A$3 

: PUT ttl, ASC (A$ (P, P3 3 : NEXT P : PUT ttl , O 

1580 PRINT ttl,SC:PUT ttl, R: PUT ttl,C:PRI 
NT ttl, LI: PUT ttl, XA : PUT ttl, XB : CLOSE ttl: 
GOSUB 1730:POKE 54286,152 
1550 RETURN 

1600 IF PEEK (7643 <255 THEN RETURN 
1610 GOTO 160O 

1620 PM=(MEM—123#256:FOR X=PM TO PM+13 

:READ A:POKE X,A:NEXT X:FOR X=PM+256 T 

O PM+261:READ A:POKE X,A:NEXT X 

1630 FOR X=1536 TO 1706:READ A:POKE X, 

A:NEXT X:FOR X=(MEM-103*256 TO (MEM-10 

3 #256 + 248:READ A:POKE X,A 

1640 IF A=86 THEN POKE X,MEM-10 

1650 NEXT X:FOR X=(MEM-23*256 TO (MEM- 

23 #256+68:READ A:POKE X,A 

1660 IF A=86 THEN POKE X,MEM-10 

1670 NEXT X:POKE (MEM—103*256+243,MEM— 

2 

1680 FOR K=Z07 TO 205:POKE X,0:NEXT X: 
POKE 623,1:POKE 1788,PM/256:POKE 53277 
,3:POKE 54275,PM/256-4 

1650 POKE 1784,14:POKE 1785,6:POKE 175 

O,85:POKE 1780,145:POKE 704,52:POKE 70 


208 



5 ji ±94 : POKE 1752 J 0:H = U5Rtl696) 

1700 FOR H = PM TO PM+13:POKE K f O:HEKT K 

1710 DL = PEEK C5601+256*PEEKC561) :POKE D 
L+15 f 1S4:POKE DL+18,130:POKE DL+19,130 
:POKE DL+20J130 

1720 POKE 512j111:POKE 513,MEM—lO:POKE 
752,1:POKE 1756,1:IF STAT THEN HA=8S: 
HB=145:LX=10:R=1:C=1:SC = Q 

1730 ? CHR$tl253:TJ=PEEKC660)+256»PEEK 

(6613:FOR EA=D TO 39:POKE EA+TJ,l:POKE 
EA+TJ+120,1:NEKT Eft 

1740 FOR Eft=40 TO 80 STEP 40:POKE TJ+E 
ft,l:POKE TJ+Eft+39,1:NEXT Eft 
1750 POKE 656,1:POKE 657,2:? ft$;:PDKE 
656,1:POKE 657,21:? "SCORE: "JSC; 

1760 POKE 656,2:POKE 657,2:? "ROOM NUM 
BER "JRNJ" ";:POKE 656,2:POKE 657,21:? 

"HIT POINTS: LI;:RETURN 

1770 DATA 0,0,0,224,160,191,170,234,3, 

3,15,15,63,63,255,255,0,24,24,24,24,0, 

1780 DATA 0,56,254,84,40,56,146,124,56 

,56,56,40,40,108,0,0,0,0,0,16 

1790 DATA 162,3,189,244,6,240,89,56,22 

1.240.6.240.83.141.254.6.106.141.255.6 
,142,253,6,24,169,O,109,253,6,24,109 
1800 DATA 252,6,133,204,133,206,189,24 

O,6,133,203,173,254,6,133,205,189,248, 
6,170,232,46,255,6,144,16,168,177 
1810 DATA 203,145,205,169,O,145,203,13 

6,202,208,244,76,87,6,160,0,177,203,14 
5,205,169,O,145,203,200,202,208,244 
1820 DATA 174,253,6,173,254,6,157,240, 

6,189,236,6,240,48,133,203,24,138,141, 
253,6,109,235,6,133,204,24,173,253 
1830 DATA 6,109,252,6,133,206,189,240, 

6,133,205,189,248,6,170,160,O,177,203, 
145,205,200,202,208,248,174,253,6,169 
1840 DATA 0,157,236,6,202,48,3,76,2,6, 

76,98,228,O,O,104,169,7,162,6,160,O,32 
,92,228,96 

1850 DATA 72,138,72,165,207,201,1,240, 

34,173,132,2,201,1,240,51,173,120,2,20 
1,15,240,44,173,214,6,133,209,173,244 
1860 DATA 6,141,245,6,173,120,2,133,20 

8,169,1,133,207,216,24,166,208,165,209 
,125,79,86,133,209,141,1,208,24,173 
1870 DATA 245,6,125,95,86,141,245,6,14 

1,lO,212,169,111,141,O,2,104,170,104,6 
4,0,0,0,0,0,1,1,1,0,255,255,255 
1880 DATA 0,0,0,0,0,0,0,0,0,1,255,0,0, 

1,255,0,0,1,255,0 

1890 DATA 72,138,72,173,215,6,201,1,24 

O,35,169,1,141,215,6,216,24,174,120,2, 

189.79.86.109.214.6.141.214.6 

1900 DATA 141,O,208,24,189,95,86,109,2 

44,6,141,244,6,24,144,5,169,O,141,215, 

6,141,lO,212,169,173,141,O,2 

1916 DATA 104,170,104,64,72,173,5,208, 

201,O,240,48,201,4,240,15,169,O,234,23 

4,141,1,208,133,207,234,234,234 

1920 DATA 24,144,29,201,4,208,25,165,2 

OS,141,217,6,173,245,6,141,218,6,169, O 

,234,234,141,1,208,133,207,169,1 

1930 DATA 141,216,6,169,O,234,234,234, 

141,10,212,169,0,141,0,2,169,94,141,1, 

2,104,64 

1940 DATA 72,173,220,6,201,1,240,46,21 

6,173,219,6,24,105,1,141,219,6,201,60, 
208,13,169,82,141,4,210,169,193,141,5 
1950 DATA 210,24,144,IS,201,120,208,15 

,169,90,141,4,210,169,193,141,5,210,16 
9,O,141,219,6,141,lO,212,169,O,141,O, 2 

1S60 DATA 16S,86,141,1,2,104,64 
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ROBOT DUNGEON - DUNGEON CREATOR 


1G REM DUNGEON CREATOR 

2G REM BY ANSCHUETZ/HEISGERBER/ANSCHUE 
TZ 

3G REM CO 1985, ANTIC PUBLISHING 

4G ? "ISHARNING! The JilMii:! JilliU 11 

SO ? "WRITES TO YOUR DISK!!!" 

60 ? :? "Do you want instructions CY^N 

J ?"; 

62 POKE 764,255:POKE 1540,240 

65 IF CPEEK C7643 =43 OR PEEKC7643=107) 

THEN POKE 764,255:RUN "D:ROBOHELP" 

67 IF CPEEK C7643 =35 OR PEEKC764)=9S) T 
HEN POKE 764,255:GOTO lOO 
70 GOTO 65 

lOO DIM DSC20 l 60) l RSC20 l 60) f MC10) l A$Cl 
53:GRAPHICS 2:POKE 16,64:PDKE 53774,64 

: POSITION 2,4:? 116 J 

110 POSITION 7,6:? »6;"A/W/A":DIM D$Cl 
23 

120 ? "ENTER THE NAME OF YOUR DUNGEON, 

EXCLUDING ALL PUCTUATION, AND L 
IMITED TO 15 CHARACTERS";:INPUT A$ 

130 ? CHR$C1253:? "ENTER FILENAME. CA 

SSETTE OWNERS USE SIMPLY C: DISK USE 

RS USE D:DUNJIN.DAT" 

140 TRAP 130:INPUT D$:IF D$C1,13<>"C" 
AND D$ Cl,13 <>"D" THEN 130 

ISO FOR R = 1 TO 20:FOR C = 1 TO 60:DSCR,C 

3 =0:RS CR,C3 =0:NEXT C:NEXT R 

160 FOR L=1 TO 3:HI=L*20:LOW=HI-lS:R=1 

:C = INT CRNDC03*203 +LOW 

170 FOR JH=1 TO 395 

ISO POKE 77,0!? L,JW,H,C:O=0:HA=tH/2=I 
NT CR^23 3 

ISO IF OLOH THEN IF DSCR,C"13=0 THEN 
0 = 0 + 1:MCQ3 =1 

200 IF C<HI THEN IF DSCR,C+13=0 THEN Q 

= 0 + 1:MCQ3 =2 

210 IF COLON OR RA = G3 AND R<20 THEN I 

F DS CR + 1,C-RA3=0 THEN Q = Q + 1:MCQ3=3 
220 IF CC<HI OR RA=13 AND R<20 THEN IF 

DS CR + 1,C + CRA = G33 =0 THEN Q = Q + 1:MCQ3=4 
230 IF COLON OR RA = G3 AND R>1 THEN IF 

DSCR-1,C-RA3=G THEN Q=Q+1:MCQ3=5 
240 IF (OHI OR R A = 13 AND R>1 THEN IF 

DS CR —1,C + CRA = G33 =0 THEN Q = Q + 1:MCQ3=6 
250 IF Q>0 THEN 2SO 

260 C = C + 1 : IF OHI THEN C = LOW: R = R + 1 : IF 
R> 20 THEN R = 1 

270 IF DS CR,C3 =0 THEN 260 

280 GOTO 180 

290 EA = MCINT CRND C03**O3 +13 

300 IF EA = 1 THEN DS CR,C3 =DS CR,C3 +1:C = C 

— 1:DS CR,C3 =DS CR,C3 +16:GOTO 360 

310 IF EA = 2 THEN DS CR,C3 =DS CR,C3 +16:C = 

C + l:DS CR,C3 =DS CR,C3 +1:GOTO 360 

320 IF EA = 3 THEN DS CR,C3 =DS CR,C3 + 32:R = 

R + l:C = C —RA:DS CR,C3=DS CR J C3 +4:GOTO 360 

330 IF EA = 4 THEN DS CR,C3 =DS CR,C3 + 64:R = 

R + l:C = C+ CRA = G3 :DSCR,C3 =DS £R,C)+2:GOTO 

360 

340 IF EA = 5 THEN DS CR,C3 =DS CR,C3 + 2:R = R 

-l:C = C-RA:D5CR,C3=DS CR,C3 +64:GOTO 360 
350 IF EA = 6 THEN DS CR,C3 =DS CR,C3 + 4:R = R 

-1:C = C+ CRA = G3 :DSCR,C3 =DS CR,C)+32:GOTO 
360 

360 NEXT JW:NEXT L:? CHR$C1253:? AS;" 
IS ABOUT HALF-WAY":? "COMPLETED." 


370 

FOR 

L = 1 

TO 

3 : FOR 

H = 1 

TO 

25 : 

GOSUB 

7 

80 

380 

IF 

DS CR J 

Cl 

—128> O 

THEN 

H 

H 

1 

X 

II 

: GOTO 

4 


GO 

390 DS CR,C3 =DS CR,C3 +128 
400 NEXT X:NEXT L 

410 FOR L=1 TO 3:FOR H=1 TO 200:GOSUB 

780:IF RS CR,C3 >0 THEN X = X~1:GOTO 430 
420 R5CR,C3=RSCR,C3+1 
430 NEXT X:NEXT L 

440 FOR L=1 TO 3:FOR H=1 TO 200:GOSUB 

780:IF RS CR,C3 >1 THEN X = X~1:GOTO 460 

450 RSCR,C3=RSCR,C3+2 
460 NEXT X:NEXT L 

470 FOR L=1 TO 3:FOR H=1 TO lOO:GOSUB 

780:IF RS CR,C3 >3 THEN X = X~1:GOTO 490 

480 R5CR,C3=RSCR,C3+4 
490 NEXT X:NEXT L 

500 FOR L=1 TO 3:FOR H=1 TO 80:GOSUB 7 

80:IF RS CR,C3 >7 THEN X = X~1:GOTO 520 
510 RSCR,C3=RSCR,C3+8 
520 NEXT X:NEXT L 

530 FOR L=1 TO 3:FOR H=1 TO 25:GOSUB 7 

80:IF RS CR,C5 >15 THEN X = X~1:GOTO 550 

540 RSCR,C)=RSCR,C)+16 
550 NEXT X:NEXT L 

560 FOR L=1 TO 3:FOR H=1 TO 25:GOSUB 7 

80:IF RS CR,C5 >31 THEN X = X~1:GOTO 580 

570 RSCR,C)=RSCR,C)+32 
580 NEXT X:NEXT L 

590 FOR R=1 TO 20:FOR C=1 TO 60:RSCR,C 
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ROBOT DUNGEON - DUNGEON CREATOR - 2017 


5 REM MODIFIED OH 7/31/2017 BY ERIC OH 
SCHUETZ TO PRODUCE VARIABLE SIZED DUNG 
EONS FROM 5 TO 20 

7 REM MODIFIED CODE HAS VARIABLES MAKS 
IZE, SIZE, AND BASEHUM 
TO REM DUNGEON CREATOR 

20 REM BY AHSCHUETZ/HEISGERBER/ANSCHUE 
TZ 

30 REM CO 1985, ANTIC PUBLISHING 

40 ? M >SHARMING ! The ■ JIMM ^IliU 11 


SO ? "HR 
BO ? :? 

3 ?"; 

62 POKE 
65 IF CPI 
THEN POKI 
67 IF CPI 
HEN POKE 
70 GOTO i 

SO mahsi; 

lOO DIM I 

ze, mahsi; 

105 DIM I 
6,64: POKI 

HO POSI 
23 

120 ? "El 

El 

LIMITED 
125 ? CHI 

HE DUNGE 
127 TRAP 
IZE>20 Tl 
130 ? CHI 

SSETTE Ol 
RS USE D 
140 TRAP 
AND DSCl 
150 FOR I 
DS CR,C3 = i 
160 FOR I 
E —13 :R = 1 
170 FOR 
ISO POKE 
NT CR^23 3 
ISO IF C 
0=0+1:MC 
200 IF C 
=0+1:MCO 
210 IF C 
IF DS CR 
220 IF C 
IF DSCR+ 

4 

230 IF C 
DS CR —1, 
240 IF C 
DS CR —1,C 
250 IF Q 
260 C=C+ 
R> SIZE Tl 
270 IF D 
2SO GOTO 
2SO E A = M 
30O IF Ei 
-1:DS CR, 
310 IF Ei 
C + l:DS CR 
320 IF Ei 
R + l : C = C-I 
330 IF Ei 
R+l :C=C+ 
360 

340 IF Ei 
-1:C = C — R 
350 IF Ei 
-1 : C = C+ Cl 
360 

360 NEHT 
IS ABOUT 
365 BASEI 
THE FOLLi 
LE NUMB El 
370 ? "1 

SENUM:GO 
360 IF D 
00 

3SO DS CR 
40O NEHT 
410 ? "2 

SENUMW0: i 
H-l:GOTO 
420 RS CR 
430 NEHT 
440 ? "3 

SENUMW0: i 
H-l:GOTO 
450 RS CR 


ITES TO YOUR DISK!!!" 
"Do you want instruct 

764,255:POKE 1540,240 
EEK C7643 =43 OR PEEKC7 
E 764,255:RUN "D:ROBO 
EEK C7643 =35 OR PEEKC7 
764,255:GOTO SO 
65 

Z E = 2 O 

DS CMAKSIZE,MAHSIZE#33 
ZE»33 

MC1D3,A$C153:GRAPHICS 
E 53774,64:POSITION 2 


ions CY^N 


643 =1073 
HELP" 

643 =SS3 T 


, RS CMAHSI 


2:POKE 1 
4:? B6J" 


TION 7,6:? tt6j"A/H/A":DIM DSCl 


NTER THE NAME OF YOUR 
HCLUDING ALL PUNCTUAT 
TO 15 CHARACTERS";:IN 
RSC1253:? "ENTER THE 
ON C5-203" 

125:INPUT SIZE:IF SI 
HEN 125 

RSC1253:? "ENTER FILE 
HNERS USE SIMPLY C: 

:DUNJIN.DAT" 

130:INPUT DS:IF DS Cl 
,13 <>"D" THEN 130 
R = 1 TO SIZE:FOR C = 1 T 
O:RSCR,C3=0:NEHT C:HE 
L = 1 TO 3:HI = L*SIZE:LO 
:C = INTCRNDC03 #SIZE3+L 
J H=1 TO SIZE*SIZE-1 
77,0:? L,JH,R,C:0=0: 

> LOH THEN IF DSCR,C"1 
03 =1 

<HI THEN IF DSCR,C+13 

3 =2 

OLOH OR R A = 03 AND R< 
+1,C-RA3=0 THEN 0=0+1 
C<HI OR RA=13 AND R<S 
1,C+CRA=033=0 THEN Q= 

OLOH OR R A = 03 AND R> 
C-RA3 =0 THEN Q = Q + 1:MC 
OHI OR R A = 13 AND R>1 
+ CRA = 03 3 =0 THEN 0 = 0 + 1 
>0 THEN 2SO 
1 : IF OHI THEN C = LOH: 
HEN R = 1 

S CR,C3 =0 THEN 260 
180 

CINT CRND C03 #03+13 
A = 1 THEN DS CR,C3 =DS CR 
C3=DSCR,C3+16:GOTO 36 
A = 2 THEN DS CR,C3 =DS CR 
, C3 =DS CR,C3 +1:GOTO 36 
A = 3 THEN DS CR,C3 =DS CR 
RA:DSCR,C3=DSCR,C3 +4: 
A = 4 THEN DS CR,C3 =DS CR 
CRA = 03 :DS CR,C3 =DS CR,C 

A = 5 THEN DS CR,C3 =DS CR 
A:DS CR,C3 =DS CR,C3 +64: 
A = 6 THEN DS CR,C3 =DS CR 
RA = 03 :DS CR,C3 =DS CR,C3 

JH:NEHT L:? CHRSC125 
HALF-HAY":? "COMPLET 
NUM=INTC5IZE#SIZE/163 
OHIHG CODE USES BASEN 
R OF TREASURES BASED 
";:FOR L=1 TO 3:FOR 
SUB 780 

S CR,C3 —128>0 THEN H = H 

,C3 =DSCR,C3 +128 
K : NEHT L 

";:FOR L=1 TO 3:FOR 
GOSUB 780:IF RS CR,C3 > 
430 

,C3 =RSCR,C3 +1 
K : NEHT L 

";:FOR L=1 TO 3:FOR 
GOSUB 780:IF RS CR,C3 > 
460 

,C3 =RSCR,C3 +2 


DUNGEON, 
ION, AND 
PUT AS 
SIZE OF T 

ZE <5 OR S 

NAME. CA 
DISK USE 


O SIZE*3: 
HT R 

H=HI-CSIZ 
OH 

R A = CR/ r 2 = I 

3=0 THEN 

=0 THEN Q 

SIZE THEN 
:MCQ3 =3 
IZE THEN 
0 + 1:MCQ3 = 

1 THEN IF 
03 =5 
THEN IF 
:MC03 =6 

R = R +1:IF 


,C3 +1:C = C 
0 

, C3 +16:C = 
0 

, C3 +32:R = 
GOTO 360 
,C3 +64:R = 
3 +2:GOTO 

,C3 +2:R = R 
GOTO 360 
,C3 +4:R = R 
+32:GOTO 

3 :? AS; " 
ED . " 

: REM EEA 
UM TO SCA 
ON SIZE 
H = 1 TO BA 

-l:GOTO 4 


H = 1 TO BA 
O THEN H= 


H = 1 TO BA 
1 THEN H= 


460 NEHT K:NEHT L 

470 ? "4 ";:FOR L=1 TO 3:FOR H=1 TO BA 

SENUMH3:GOSUB 780:IF RSCR,C3>3 THEN H= 

H—1:GOTO 490 

480 RS CR,C3 =RS CR,C3 +4 

490 NEHT K:NEHT L 

500 ? "5 ";:FOR L=1 TO 3:FOR H=1 TO BA 

SENUMH3:GOSUB 780:IF RSCR,C3>7 THEN H= 

H—1:GOTO 520 

510 RS CR,C3 =RSCR,C3 +8 

528 NEHT K:NEHT L 

530 ? "6 ";:FOR L=1 TO 3:FOR H=1 TO BA 

SENUM:GOSUB 780:IF RSCR,C3>15 THEN H=H 
-l:GOTO 550 

540 RS CR,C3 =RSCR,C3 +16 
550 NEHT K:NEHT L 

560 ? "7 ";:FOR L=1 TO 3:FOR H=1 TO BA 

SENUM:GOSUB 780:IF RSCR,C)>31 THEN H=H 
-l:GOTO 580 

570 RS CR,C3 =RSCR,C3 +32 
580 NEHT H:NEHT L 

590 FOR R=1 TO SIZE:FOR C=1 TO SIZE*3: 

RS CR,C3 = RSCR,C3 +64:NEHT C:NEHT R 

60O ? "8 ":FOR L=1 TO 3:FOR H=1 TO BAS 

ENUM^S:GOSUB 780:IF RSCR,C3>127 THEN H 

=H—1:GOTO 620 

610 RS CR,C3 =RSCR,C3 +128 

620 NEHT H:NEHT L:POKE 764,255 

630 POKE 764,255 _ 

640 IF DS Cl, 13 ="C" THEN ? "PRESS 

KHJNVI'J ON RECORDER AND THENPRESS ISWUSl 
H ON KEYBOARD" : OPEN ttl,8,0,DS 
650 IF DSCl,13="D" THEN ? CHRSC1253:? 
" IzHVhVJ DISK AND THEN PRESS ON 

KEYBOARD" : GOSUB 670 : OPEN ttl,8,0,DS 
660 GOTO 685 

670 IF PEEKC7643<255 THEN RETURN 

680 GOTO 670 

685 PRINT SI,SIZE 

690 FOR R=1 TO SIZE:FOR C=1 TO 5IZE*3: 

A=DSCR,C3:PUT SI,A:NEHT C:NEHT R 

70O FOR R=1 TO SIZE:FOR C=1 TO 5IZE*3: 

A=RSCR,C3:PUT SI,A:NEHT C:NEHT R 

710 FOR H=1 TO 120:READ A:PUT SI,A:NEK 

T H:PUT SI,LENCAS3:FOR H=1 TO LENCAS3: 

PUT SI,ASCCASCK,K33:NEHT H 

720 PUT SI,1:PRINT SI,0:PUT SI,0:PUT S 
1,0:PRINT SI,0:PUT SI,0:PUT SI,0:CLOSE 
SI :END 

730 DATA 221,221,170,119,119,119,170,2 

21,0,0,0,255,255,255,0,0,56,56,56,56,5 

6,56,56,56,16,168,18,72,16,0,0,0 

740 DATA 0,0,0,0,14,31,14,4,0,0,0,170, 

85,0,0,0,0,0,108,146,146,108,0,0 

750 DATA 3,4,9,11,11,9,4,3,252,2,249,1 

3,13,249,2,252 

760 DATA 126,153,153,126,24,60,66,165, 
24,36,255,18?,60,60,60,231,60,66,21?,6 
6,60,231,12?,231 

770 DATA 36,24,18?,165,126,60,60,231,2 
4,60,102,60,24,126,21?,153,0,0,254,254 
,65,127,11?,127 

780 R = INT CRND C03 *SIZE3+1:C = INTCRND C03 * 
SIZE3 + L*SIZE-CSIZE-13 :RETURN 
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■0 5 


ROBOT DUNGEON - ROBOHELP 


IM LIHE$ClZe] f A$C13 
■■IS": CLOSE ttl : OPEN ttl,4,0,"D:ROBO. 

THT" 

30 TRAP 100 
40 INPUT ttl,LINE£ 

SO IF LENCLINE$]>2 THEN IF LINES£1,3)= 
"KKK" THEN ? :? :POSITION 2,22:? 

mmmci 11 ; : INPUT A5:? "If 11 : GOTO 40 
GO ? LINES:GOTO 40 

loo CLOSE ttl : TRAP 40000 : P OSITION 2,22: 
? iMiH-T-TIM " : : INPUT AS 

IIO IF PEEK £1540)=240 THEN RUN "D:DUNG 
EON ■ CRT 11 

120'RUN "D:ROBOTS.BAS" 
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SOKO-BAN 


1 MAHLEV=55 

3 GDSUB ±0500 

4 DIM CH$(±3 ,SCREENS (3201 ,5flU5CRH$(320 
3 ,FILNAM$(±43 ,TENS(±3 ,HONS (±3 ,LINES (20 
3,BEGSCRS(3203 

5 DIM RMS (33 ,RPS(33 ,RTS (33 ,HAMS (33 

e gdsub see 

7 TRAP 7:GRAPHICS 1:POKE 16,64:POKE 53 

774 , 54 : POKE 752 J l:POKE 756,224:? :? 11 

ENTER NAME C3 INITIALS)"; 

8 INPUT HAMS 

±0 TRAP lO:GRAPHICS ±:POKE 16,64:POKE 
53774,64:POKE 752,±:POKE 756,224 

±± ? : ? 11 ENTER LEVEL 11 ; : INP 

UT LEVEL 

±2 IF LEVEL<± OR LE VEL> MAKLEV THEN ? 11 

ENTER 1- M JMAKLEV; M . PRESS TO CO 

NTINUE";:TRAP ±Q:INPUT H:GOTO ±0 
±3 GDSUB ±0800:IF STAT=2 THEN GOTO ±0 
±6 POKE ±8,O:POKE ±S,0:P0KE 20,0 

±7 PUSHES=D:MOVES=Q:PLACED=Q 
±8 BEGSCRS=SCREENS:SH=HPOS:SV=VPOS:SB = 
BOWES:SAVSCRNS=SCREENS:PITCH=30:OLDH=H 
POS:OLDV=VPOS:P U S H = — ± 

IS POKE 764,255:GOSUB ±0740:? :? :? :? 

SPOKE 756,CHSET/256 

20 SETCOLOR O,3,2:SETCOLOR ±,±3,4:SETC 
OLOR 2,8,2:SETCOLOR 3,2,6:SETCOLOR 4,0 
, 0 

30 FOR I = ± TO ±6 
40 POSITION 0,I+± 

SO ? 06;SCREENS((I-±3*20+±,(I*2033; 

60 NEWT I 

80 ? ■■ ■■; LEVEL; ■■ ■■; : ? 

: 9 

±00 POKE 77,O:POSITION KPOS-±,VPOS+±:? 

tt6; M 0 M ;:IF PEEK(7643=10 THEN GOSUB ±0 
SOOIGOTO IS 

±O± IF PEEK (7643=28 THEN GOTO 7 

±02 GOSUB ±0600:POSITION 6,IS:? tt6; M 0 M 

; HOURS... : IF MINS<±0 THEN ? tt6; ll O ll ;M 

INS;...GOTO 104 

±03 ? ... 

±04 IF SECS<±0 THEN ? »6;"O";SECS;:GOT 
O ±06 

±05 ? 06; SECS; 

±06 IF PLACED=BOKES THEN GOSUB ±080:OL 
DLEV=LEVEL:LEVEL=LEVEL+±:GOTO ±3 
±07 IF PEEK C532793=6 THEN SCREENS = BEGS 
CRS:KPOS=SK:VPOS=SV:BOHES=SB:GOTO ±7 
±08 ST = STICK (03 :IF ST = ±± OR ST = 7 OR ST 
=±4 OR ST=±3 THEN SAVSCRNS=SCREENS:OLD 
H=HPOS:OLDV=VPOS 

±09 SCRPOS=(VPOS —±3 #20 + KP05:CHS = SCREEN 

S(SCRPOS,SCRPOS3 

±±Q IF ST=±± THEN GOSUB 500 

±20 IF ST=7 THEN GOSUB 600 

±30 IF ST=±4 THEN GOSUB 700 

±40 IF ST=±3 THEN GOSUB 800 

±50 IF STRIG (03 =± THEN GOTO lOO 

±55 SCREENS=SAVSCRNS:HPOS=OLDH:VPOS=OL 

DV 

±60 FOR I=± TO ±6:POSITION 0,I+±:? «6; 
SCREENS((I-±3*20 + ±, (1*203 3 ; :NEKT I 
±6± IF PUSH=—± THEN GOTO ±70 
±62 IF PUSH=± THEN PUSHES=PUSHES-± 

±64 MOVES=MOVES-±:GOSUB ±0740 
±65 PUSH=—± 

±70 GOTO ±00 

500 IF SCREENS (SCRPOS-I, SCRPOS-I3 = ,, B" 
THEN RETURN 

SOS IF SCREENS (SCRPOS-I, SCRPOS-13 =■■ ■■ 

THEN GOTO 5±5 

5±0 IF SCREENS(5CRPOS-±,5CRPOS-±3 ="0" 
THEN SCREENS (SCRPOS-±, SCRPOS-±3 = ■■[■]■■ : GO 
TO 5±5 

5±2 GOTO 520 

5±5 IF SCREENS(SCRPOS,SCRPOS3 ="0" THEN 
SCREENS (SCRPOS, SCRPOS3 =■■ " 

5±7 IF SCREENS (SCRPOS, SCRPOS3 = ■■[■]■■ THEN 
SCREENS (SCRPOS, SCRPOS3 
5±8 POSITION HPOS-I, VPOS + ± : ? O6; ,, 0 ,, ;:F 
OR I=± TO 5:NEKT I:POSITION HPOS-±,VPO 
S + ±:? 06;SCREENS(SCRPOS,SCRPOS3 ; 

SIS POSITION HPOS —± —±, VPOS + I : ? tt6; M B M ; 

:POSITION KPOS-±-±,VPOS+I:? 06;"B";:HP 
OS=KPOS-±:GOSUB ±e±0:PUSH=0:RETURN 
520 IF SCREENS(SCRPOS-2,SCRPOS-23 = M B" 
THEN RETURN 

525 IF SCREENS(SCRPOS-2,SCRPOS-23 = M C" 
THEN RETURN 

527 IF SCREENS(SCRPOS-2,SCRPOS-23 = M Z" 
THEN RETURN 

530 IF SCREENS(SCRPOS-2,SCRPOS-23 = M 0 M 
THEN SCREENS (SCRPOS-2, SCRPOS-23 = ,, Z ,, I PL 
ACED=PLACED+± 

535 IF SCREENS (SCRPOS-2, SCRPOS-23 =" ■■ 

THEN SCREENS(SCRPOS-2,SCRPOS-23 = M C" 

550 IF SCREENS(SCRPOS-I,SCRPOS-13 = M Z" 
THEN SCREENS(SCRPOS-I,SCRPOS-13 = ■■[■]■■ = PL 


ACED=PLACED-±:GOTO 560 

555 SCREENS(SCRPOS-I,SCRPOS-13 ="0" 

560 IF SCREENS (SCRPOS, SCRPOS3 = ,, PT t THEN 
SCREENS(SCRPOS,SCRPOS3 = 

570 IF SCREENS(SCRPOS,SCRPOS3 ="0" THEN 
SCREENS (SCRPOS, SCRPOS3 =■■ " 

575 POSITION HPOS-I,VPOS+I:? tt6; M 0 M ;:G 
OSUB ±00O 

577 POSITION HPOS-I-2,VPOS+I:? tt6; M fg M 

579 IF SCREENS (SCRPOS,SCRPOS3 = M C" THEN 
POSITION HPOS-I, VPOS + I : ? «6 ; "G]" J : GOTO 
582 

580 POSITION HPOS-I, VPOS + I : ? 06; ,, H ,, J 
582 GOSUB ±000:POSITION HPOS—2—±,VPOS+ 
± : ? tt6 ; M c0 M ; SCREENS (SCRPOS, SCRPOS3 ; : GO 
SUB lOOO 

584 POSITION HPOS-I-I, VPOS + I : ? 06; ■■E"; 

585 PUSH=±:KPOS=KPOS-±:GOSUB ±0700:RET 
URN 

600 IF SCREENS(SCRPOS + I,SCRPOS + 13 = M B" 
THEN RETURN 

60S IF SCREENS (SCRPOS + I, SCRPOS + 13 =■■ 11 

THEN GOTO 6±5 

6±0 IF SCREENS(SCRPOS + I,SCRPOS + 13 ="0" 
THEN SCREENS (SCRPOS + I, SCRPOS + 13 = ■■[■]■■ : GO 
TO 6±5 

6±2 GOTO 620 

6±5 IF SCREENS(SCRPOS,SCRPOS3 = M B" THEN 
SCREENS (SCRPOS, SCRPOS3 =■■ ■■ 

6±7 IF SCREENS (SCRPOS, SCRPOS3 = ,, P] M THEN 
SCREENS(SCRPOS,SCRPOS3 
6±8 POSITION HPOS-I, VPOS + I : ? O6;"0";:F 
OR I=± TO 5:NEKT I:POSITION HPOS-I,VPO 

5 + ±:? »6;SCREENS(SCRPOS,SCRPOS3 ; 

6 IS POSITION HPOS + I-I, VPOS + I : ? 06; ■■fl"; 
:POSITION HPOS+I-I,VPOS+I:? «6;"B";:HP 
OS=HPOS+±:GOSUB IOIO:PUSH=0:RETURN 
620 IF SCREENS(SCRPOS + 2,SCRPOS + 23 = M B" 
THEN RETURN 

625 IF SCREENS(SCRPOS + 2,SCRPOS + 23 = M C" 
THEN RETURN 

627 IF SCREENS (SCRPOS + 2,SCRPOS + 23 = M Z" 
THEN RETURN 

630 IF SCREENS(SCRPOS + 2,SCRPOS + 23 ="0" 
THEN SCREENS (SCRPOS + 2,SCRPOS + 2 3 ="Z M :PL 
ACED=PLACED+± 

635 IF SCREENS (SCRPOS + 2,SCRPOS + 23 =" ■■ 

THEN SCREENS (SCRPOS + 2, SCRPOS + 2 3 = ll c" 

650 IF SCREENS(SCRPOS + I,SCRPOS + 13 = "Z M 
THEN SCREENS (SCRPOS + I, SCRPOS + 13 = ■■[■]■■ : PL 
ACED=PLACED-±:GOTO 660 

655 SCREENS(SCRPOS + I,SCRPOS + 13 = "E" 

660 IF SCREENS (SCRPOS, SCRPOS3 = ,, H" THEN 
SCREENS(SCRPOS,SCRPOS3 = 

670 IF SCREENS(SCRPOS,SCRPOS3 ="0" THEN 
SCREENS (SCRPOS, SCRPOS3 =■■ ■■ 

675 POSITION HPOS-I, VPOS + I : ? «6; ,, B ,, ;:G 
OSUB lOOO 


677 IF SCREENS(SCRPOS,SCRPOS3 = "C' 


THEN 

GOTO 


POSITION HPOS-I, VPOS + I : ? 06; "H 
6B± 

680 POSITION HPOS-I, VPOS + I : ? nGj-'Q 11 ; 

681 POSITION HPOS+l-l,VPOS+1:? tt6; M Mn M 

682 GOSUB lOOO:POSITION HPOS-l,VPOS+1: 

? tt6; SCREENS (SCRPOS, SCRPOS3 : GOSU 

B lOOO 

684 POSITION HPOS + l-l, VPOS + 1 : ? 06; ■■E"; 

685 PUSH=1:KPOS=KPOS+l:GOSUB 10700:RET 
URN 

700 IF SCREENS(SCRP0S-20,SCRP0S-203="B 

" THEN RETURN 

70S IF SCREENS(SCRP0S-20,SCRP0S-203=" 

■■ THEN GOTO 715 

710 IF SCREENS (SCRP0S-20, SCRP0S-203 ="[3 

■■ THEN SCREENS (SCRP0S-20, SCRP0S-203 = ,, H 

"IGOTO 715 
712 GOTO 720 

715 IF SCREENS(SCRPOS,SCRPOS3 ="0" THEN 

SCREENS (SCRPOS, SCRPOS3 =■■ " 

717 IF SCREENS (SCRPOS, SCRPOS3 = ,, H M THEN 

SCREENS (SCRPOS, SCRPOS3 

718 POSITION HPOS-l, VPOS + 1 : ? »6; ,, E ,, ;:F 

OR 1=1 TO 5:NEKT I:POSITION HPOS-l,VPO 

S + l:? 06;SCREENS(SCRPOS,SCRPOS3 ; 

719 POSITION HPOS-l, VPOS-1 + 1 : ? tt6; ,, B n ; 

: POSITION HPOS-l, VPOS-1 + 1 : ? O6; ,, 0 ,, ;:VP 
OS=VPOS-l:GOSUB 1010:PUSH=e:RETURN 

720 IF SCREENS(SCRP0S-40,SCRP0S-403="B 

11 THEN RETURN 

725 IF SCREENS(SCRP0S-40,SCRP0S-403="C 

11 THEN RETURN 

727 IF SCREENS(SCRP0S-40,SCRP0S-403 ="Z 

11 THEN RETURN 

730 IF SCREENS (SCRP0S-40, SCRP0S-403 ="[3 

■■ THEN SCREENS(SCRP0S-40,SCRP0S-403 ="Z 

11 : PLACED = PLACED + 1 
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735 IF SCREENS C5CRP05-40, SCRPOS-40) =■■ 

11 THEN SCREENSCSCRP0S-40,SCRP0S-40)="C 

I I 

750 IF SCREENSCSCRP0S-20,SCRPOS-20)="Z 

II THEN SCREENS CSCRP0S-20, SCRPOS-20) =••£] 
11 : PLACED = PLACED~1 : GOTO 760 

755 SCREENS tSCRPOS-20, SCRPOS-20) = ••£]" 
760 IF SCREENS CSCRPDS, SCRPDS3 = ■■[■]■■ THEN 
SCREENS CSCRPOS,SCRPOS3 = 

770 IF SCREENS CSCRPDS, SCRPDS3 =••&" THEN 
SCREENS CSCRPDS,SCRPOS) =" M 
775 POSITION KPOS-l, YPOS + 1 : ? tt6j ,, [g ,, j :G 
OSUB I00O 

777 IF SCREENS CSCRPDS, SCRPDS3 11 THEN 
POSITION KPOS-ljVPOS+l:? «6J"H"J:GOTO 
761 

780 POSITION KPOS-1, VPOS + l : ? ttej^ra"; 

781 POSITION KPOS-1 , VPOS-1 + 1 : ? 

: POSITION KPOS-lj YPOS-2 + 1 : ? 

782 GOSUB lOOO:POSITION KPOS-1,VPOS+l: 
? tt6 ; SCREENS CSCRPDS, SCRPOS) ; : POSITION 
KPOS-1, VPOS-1 + 1 : ? tt6j ,, C3 ,, j 

783 POSITION KPOS-1, YPOS-2 + 1 : ? 

:GOSUB lOOO 

784 POSITION KPOS-1, VPOS-1 + 1 : ? »6; ,, E ,, J 

785 PUSH=1:VPOS=VPOS-l:GOSUB 10700:RET 
URN 

800 IF SCREENS CSCRP0S + 20,SCRP0S + 20)="B 
11 THEN RETURN 

805 IF SCREENS CSCRPOS+20, SCRP0S+20) =■■ 

" THEN GOTO 815 

810 IF SCREENS CSCRPOS + 20, SCRP0S + 20) ="[3 
" THEN SCREENSCSCRPOS+20,SCRP0S+20)= ■ "H 
"IGOTO 815 
812 GOTO 820 

815 IF SCREENS tSCRPOS, SCRPOS) = ,, 0 M THEN 
SCREENS CSCRPOS, SCRPOS) =■■ 11 

817 IF SCREENS tSCRPOS,SCRPOS)= M n M THEN 
SCREENS tSCRPOS,SCRPOS) = 

818 POSITION KPOS-1,VPOS+l:? tt6j M D M j:F 
OR 1=1 TO 5:NEKT I:POSITION KPOS-1,VPO 
S+l:? ns; SCREENSCSCRPOS,SCRPOS); 

819 POSITION KPOS-1, VPOS + 1 + 1 : ? »6J ,, D ,, J 
:POSITION KPOS-1,VPOS+1+1:? «6J■■E";:VP 
OS=VPOS+l:GOSUB 1010:PUSH=0:RETURN 

820 IF SCREENSCSCRP0S+40,SCRP0S+40)="B 
11 THEN RETURN 

825 IF SCREENSCSCRP0S+40,SCRP0S+40)="C 
11 THEN RETURN 

827 IF SCREENSCSCRP0S+40,SCRP0S+40)="Z 
" THEN RETURN 

830 IF SCREENSCSCRP0S+40,SCRP0S+40)="0 
" THEN SCREENSCSCRP0S+40,SCRP0S+40)="Z 
":PLACED=PLACED+1 

835 IF SCREENS CSCRP0S + 40, SCRP0S + 40) =■■ 

" THEN SCREENSCSCRP0S+40,SCRP0S+40)="C 

I I 

850 IF SCREENSCSCRP0S+20,SCRP0S+20)="Z 
" THEN SCREENS CSCRPOS + 20, SCRP0S + 20) = ,, H 

II : PLACED = PLACED~1 : GOTO 860 

855 SCREENS CSCRPOS + 20, SCRPOS + 20) = "E" 
860 IF SCREENS CSCRPOS, SCRPOS) = ,, H M THEN 
SCREENS CSCRPOS, SCRPOS) = ,, [3 ,, 

870 IF SCREENS CSCRPOS,SCRPOS)="0" THEN 
SCREENS CSCRPOS, SCRPOS) =■■ ■■ 

875 POSITION KPOS-1,VPOS+l:? tt6j M D M j:G 
OSUB lOOO 

877 IF SCREENS CSCRPOS,SCRPOS)="C M THEN 
POSITION KPOS-1,VPOS+l:? «6J"H"J:GOTO 
881 

880 POSITION KPOS-1, VPOS + l : ? «6j ,, U] ,, J 

881 POSITION KPOS-1, VPOS + 1 + 1 : ? «6; ,, W ,, J 
: POSITION KPOS-1, VPOS + 2 + 1 : ? «6; ,, X ,, J 

882 GOSUB lOOO:POSITION KPOS-1,VPOS+l: 
? 06;SCREENSCSCRPOS,SCRPOS)J:POSITION 
KPOS-1, VPOS + 1 + 1 : ? tt6; n Q M j 

883 POSITION KPOS-1, VPOS + 2 + 1 : ? tt6j ,, C ,, J 
:GOSUB lOOO 

884 POSITION KPOS-1, VPOS + 1 + 1 : ? tt6j ,, 0 ,, j 

885 PUSH=1:VPOS=VPOS+l:GOSUB 10700:RET 
URN 

see POKE 106,PEEKC106)-8:GRAPHICS 0:CH 
SET=PEEKC106)*256 

902 IF PEEK CCHSET+ C32 + 1)*8)=2 4 THEN RE 
TURN 


SOS FOR 
7344+1): 

1 = 0 TO 
INEKT I 

511:POKE 

CHSET + I,PEEK C5 

SIO 

GRAPHICS l: 

: POKE 756, 

CHSET/256 

S15 

FOR 

1 = 1 TO 

26 


S17 

FOR 

J = O TO 

7 



SIS READ A:POKE CHSET+CCI+32)*8)+J,A 

521 NEKT J 

522 NEKT I 

950 DATA 24,88,48,30,16,16,40,36 
S52 DATA 221,221,221,O,11S,IIS,11S, O 
S54 DATA O,126,102,SO,SO,102,126,O 
S56 DATA 0,24,36,66,66,36,24,0 
S58 DATA 48,48,144,112,8,20,20,18 


S60 DATA O,7,6,5,5,6,7,O 

S62 DATA 3,227,105,167,160,S6,224,O 

S64 DATA O,24,36,66,1S4,164,152,128 

S66 DATA 0,0,0,0,128,128,128,128 

S68 DATA 12,12,S,14,16,40,40,72 

S70 DATA O,O,O,O,1,1,1,1 

S72 DATA O,2S,36,66,67,37,25,1 

S74 DATA 1S2,1SS,ISO,22S,5,6,7,O 

S76 DATA O,224,S6,160,160,S6,224,O 

S78 DATA 84,84,56,16,24,32,32,0 

S80 DATA 28,0,0,0,0,0,0,0 

S82 DATA 28,24,36,66,66,36,24,0 

S84 DATA SO,102,126,O,42,42,28,8 

S86 DATA O,O,O,O,O,126,102,SO 

S88 DATA 0,32,32,24,16,56,86,86 

SSO DATA 0,0,0,0,0,0,0,28 

SS2 DATA 0,24,36,66,66,36,24,28 

554 DATA 8,28,42,42,O,126,102,SO 
SSO DATA SO,102,126,O,O,O,O,O 

557 DATA 24,88,48,30,16,16,40,36 

558 DATA O,126,102,SO,SO,102,126,O 

555 RETURN 

lOOO SOUND O,PITCH+50,lO,8:FOR H=1 TO 
2:NEKT H:PITCH=30-PITCH:SOUND 0,0,0,01 
RETURN 

leie sound o,so,lo,s :sound 0,e,e,e:Mou 

ES=MOUES+l:GOSUB 10750:RETURN 
1080 FOR 1 = 1 TO 80:A = INT CRND CO)*256) :S 
OUND O,A,lO,8:SETCOLOR 1,A,A/16:NEKT I 
:SOUND 0,0,0,O:SETCOLOR 1,13,4 
1085 TIME=HOURS*60*6O+MINS*6O+SECS 
lOSO IF MOVES<RM OR RM=0 OR PUSHES<RP 
OR RP = 0 OR TIME <RT OR RT = 0 THEN GOTO 1 
lee 

less GOTO 1150 

liee OPEN ttl, 8, O, FILNAMS : FOR 1 = 1 TO 16 

:? ttl;BEGSCRS C CI-1)*20 + 1,1*20) :NEKT I 

1105 ? ttl;HP:? ttl;VP:? ttl;BO 

me IF MOVES<RM OR RM=0 THEN ? ttl; MOV 

E5:? ttl;HAMS:GOTO 1120 

1115 ? ttl;RM:? ttl;RM$ 

1120 IF PUSHES<RP OR RP=0 THEN ? ttl;PU 
5HE5:? ttl;HAMS:GOTO 1130 
1125 ? ttl;RP:? ttl;RP$ 

1130 IF TIME <RT OR RT = 0 THEN ? ttl;TIME 

:? ttl;HAMS:GOTO 1140 

1135 ? ttl;RT:? ttl;RTS 

1140 CLOSE ttl 

1150 RETURN 

10500 GRAPHICS 18:POKE 16,64:POKE 5377 

4,64:DL=PEEKC560)+256*PEEKC561):SETCOL 
OR 2,0,0 

10510 POKE DL+IO,6:POKE DL+ll,6:POKE D 
L+12,6:POKE DL+13,2:SETCOLOR 0,8,4:P0S 
ITION 6,4 

10520 ? tt6;"SOKO-BAN":POSITION 5,8:? tt 

6;"ANSCHUETZ/WEISGERBER/ANSCHUETZ" 
10550 P OSITION 0,6:? tt6:start □ 
[■■BJiltiT 1 : IF PEEK C5327S) 06 THEN GOTO 1 
0530 

10540 RETURN 

10600 TIME = INTC CPEEKC18)*256*256 + PEEKC 
1S)*256+PEEKC20))/6G3 

10605 HOURS = INT CTIME/60/60) :TIME = TIME — 
HDURS«60#60 

10610 MINS = INT CTIME/60) :TIME = TIME —MINS 
*6 0 

10615 SECS=INTCTIME) 

10620 RETURN 

10700 MOUES=MOUES+l:PUSHES=PUSHES+1:GO 
SUB 10740:RETURN 

10740 POSITION 15,1S:IF PUSHES<10 THEN 
? tt6; M 000 M ;PUSHES;:GOTO 10750 
10742 IF PUSHES-ClOO THEN ? tt6; "OO"; PUS 
HES;:GOTO 10750 

10744 IF PUSHES-ClOOO THEN ? tt6; ,, O l, ;PUS 
HES;:GOTO 10750 
10746 ? tt6;PUSHES; 

10750 POSITION 1,IS:IF MOUES<lQ THEN ? 

tt6; "OOO 11 ; MOVES; : GOTO 10760 
10752 IF M0VES<100 THEN ? tt6;"OO";MOVE 
s; :GOTO 10760 

10754 IF MOVES{lOOO THEN ? tt6 ; m O m ;MOVE 
s; :GOTO 10760 
10756 ? tt6;MOVES; 

10760 RETURN 

10800 IF LEVEL> MAKLEV THEN STAT = 2:GOTO 
10860 

1080S STAT = 1:TEN$ = CHR$CINT CLEVEL/IO]+4 
8):HON$=CHR$CLEVEL-INTCLEVEL/10)*10+4B 
) 

10810 FILNAM$ Cl, 8) ="D : SCREEN 11 : FILNAMS C 
S,S)=TEN$:FILNAMS CIO,lO)=WON$:FILNAMS C 
11,14) = ■■ . DAT" 

10820 TRAP 10850:OPEN ttl,4,O,FILNA MS 
10825 FOR 1=1 TO 16:INPUT ttl;LINES:SCR 
EENS C CI-1)*20 + 1,I*20)=LINE$:NEKT I:INP 
UT ttl;KPOS:INPUT ttl;VPOS 

10827 INPUT ttl;BOKES:INPUT ttl;RM:INPUT 
ttl;RMS:INPUT ttl;RP:INPUT ttl;RP$:INPUT 
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BljRT: INPUT B±; RTS 
±0828 XP=XPOS:VP=VPOS:BO=BOXES 
±0830 CLOSE tt± : GOTO ±0880 

±0850 CLOSE 8± : ? "DISK ERROR. PRESS [HI 
linaa TO CONTINUE";STRAP 40000:STOT=2:T 
RAP ±0:INPUT H 
±0880 RETURN 

losee t±=peekc203:t2=peek ciss:T3 =peekc 
±83 

±0805 GRAPHICS 2+±6:POKE ±8 l 84:POKE 53 
774 f 64:POKE 752 J ±:POKE 756,224 

10810 POSITION 0,0:? 86j" soko-ban re 
cords";:POSITION 4,±:? »6;"for level " 
;:? 86 JCHR$CINTCLEOEL/105+483J 

10811 ? tt6 ; CHR$ (LEVEL —INT tLEUEL/±03*±0 
+ 483 J : P OSITION 0,4:? WTl r -rTTrr^M HmT M 
■ uiLmS 11 ; 

10812 POSITION 1,5:IF RM<±0 THEN ? »6J 
"000";RMJ:GOTO ±0820 

10814 IF RM<10O THEN ? «6;"OO"JRMJ:GOT 
O ±0820 

±0816 IF RM<100O THEN ? «6;"O"JRMJ:GOT 

O ±0820 

±0818 ? H6;RM; 

±0820 TIME=RT:GOSUB ±0605 

±0825 POSITION 6,5:? «6;"O";HOURSJ.J 

:IF MINS <±0 THEN ? «6 ; "O";MINSJ.J :GO 

TO ±0835 

±0830 ? ... 

±0835 IF SECS<±0 THEN ? «6 ; "O"JSECSJ:G 

OTO ±0845 

±0840 ? tt6;SEC5; 

±0845 POSITION ±5,5:IF RP<±0 THEN ? «6 
;"OOO";RP;:GOTO ±0860 

±0848 IF RP<10O THEN ? «6 ; "OO";RP;:GOT 
O ±0860 

±0850 IF RP<100O THEN ? «6J"O";RP;:GOT 

O ±0860 

±0855 ? tt6 ; RP ; 

±0860 POSITION 2,6:FOR I = ± TO 3:? B6;C 

HRS CASC CRMS Cl,13 3 +±283 ; :NEXT I 

±0862 POSITION 8,6:FOR I = ± TO 3:? B6;C 

HRSCASCCRTS Cl,133+±283 ;:NEXT I 

±0864 POSITION 15,6:FOR I=± TO 3:? B6; 

CHRSCASCCRPSCl,133+1283J:NEXT I 

±0870 POSITION 3,±0:? B6;"press Trigg 

er"; 

±0880 IF STRIGC03=± THEN GOTO ±0880 
±0880 GRAPHICS ±:POKE ±6,64:POKE 53774 

,64:POKE 752,±:POKE ±8,T3:POKE ±8,T2:P 
OKE 20,T±:RETURN 
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SOKO-BAN - SAVDAT 


10 DIM SCREENS (3201 ,AS(203 ,B$(3203 ,FIL 

HAMS(153 ,RMS(33 ,RPS (33 , RTS (33 

20 ? "ENTER FILENAME"::INPUT FILNAMS 

45 OPEN ttl ,8,0, FILNAMS 

47 GDSUB 1100 

50 FOR 1=1 TO 16 

70 ? ttlJSCREENS((1—13*20+1,I»203 

75 NEHT I 

77 ? ttljHPOS:? ttljYPOS:? ttl;BOXES 

76 ? ttl;O:? ttl;"AAA":? ttljO:? ttl;"AAA" 
:? ttl;O:? ttl;"AAA" 

SO CLOSE ttl 

81 HPOS=0:YPOS=0:BDKES=0 
83 OPEN ttl,4,0,FILNAMS 
85 FOR 1=1 TO 16 
10O INPUT ttl;AS 

102 BS((1-13*20 + 1,I»203 =A$ 

103 NEHT I 

104 INPUT ttl;HPOS:INPUT ttl;VPOS:INPUT 
ttl;BDHES:INPUT ttl;RM:INPUT ttl;RMS:INPU 
T ttl;RP:INPUT ttl;RPS:INPUT ttl;RT 

105 INPUT ttl;RTS:CLOSE ttl 
110 FOR 1=1 TO 16 

120 ? BS((1-13*20+1,1*203 

140 NEHT I 

ISO ? HPOS,VPOS,BDHES 
160 END 


1100 

SCREENS(1, 203 =" 

BBBBBBB 

1105 

SCREENS(21, 403 =" 

B 

B B 

1110 

SCREENS(41, 603 =" 

B 

C B 

1115 

SCREENS(61, 803 =" 

BBB 

Be BBBB 

1120 

SCREENS(81,1003 =" 

B 

C BBC B 

1125 

SCREENS(101,1203 = ■ 

1 B 

B E C B CB 

1130 

SCREENS(121,1403 = ■ 

1 B 

B C B 

BBB 

1 1 



1135 

SCREENS(141,1603 = ■ 

1 BB 

BBBBCBB 

1140 

SCREENS(161,1803 = ■ 

1 B 

C BlH]h]h]h]h]B B 

1145 

SCREENS(181, 2003 = ■ 

1 B 

c03zz0 cB 

BBB 

11 



1150 

SCREENS(201,2203 = ■ 

1 BB 

B [333336 

1155 

SCREENS(221,2403=■ 

1 B 

BBB BBBBBB 

1160 

SCREENS(241,2603=■ 

1 B CC B B 

1165 

SCREENS(261,2803=■ 

1 B 

B B 

1170 

SCREENS(281,30O3=■ 

1 BBBBBB B 

1175 

SCREENS(301,3203=■ 

- 

BBBBB 


1180 HPOS=8:YPOS=6:BOHES=15 
1185 RETURN 
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SPACE ASSAILANTS 


100 ? M H M :M=PEEK C106J-64:H = M»256:GOTO 

440 

110 SOUND OjOjOjO:NS0=0:SE=SE+1:POKE 6 

56,0:POKE 657,34:? ..IF LI = 0 THE 

N 250 

120 FOR Y=13262+H TO 13271+N:POKE V,0: 
NEXT VlPOKE 54286,0 

130 POKE 13273+N,50:LM=50:POKE 13163+N 
,240:X = 24D:DR=13262+N:F=0 

140 FOR Z=12855+H TO 13055+N STEP 4:PD 
KE Z,0:POKE Z+l,O:NEXT Z 

ISO R = INT t tSE-1)/63 :NL = SE-R*6:IF SE>6 
THEN Q=0.5:IF SE>12 THEN 5D=2G:Q=Q.25 

160 RESTORE 750:FOR Ll=13055+N TO 1305 
5-NL*40+N STEP -40:READ TA:FOR L2 = L1 T 
O L1+20 STEP 4 

170 POKE L2,TA:POKE L2+1,TA + i:NSA=NSA+ 
1:NEKT L2:NEKT LI:Q=ABSCQJ:POKE 53278, 
0:IF SE>18 THEN Q=8.5 

ISO X=X-5D:POKE 13163+N,X : IF X = 0 THEN 
X = 24D 

ISO IF F = 1 THEN R = R-7:GOSUB 310 
20O IF K/80=INTCK/801 THEN POKE 54257, 
CH:CH = C48 + M3 # CCH = 60 + M1 + C60 + MJ#tCH = 48 + H 
J 

210 IF PEEKC540163=251 THEN VP=VP-CVP> 
53J*4:POKE PLH,VP 

220 IF PEEKC540163=247 THEN VP=VP+CVP< 
1853 *4:POKE PLH,VP 

230 IF PEEKC532643=0 AND F = 0 THEN F = 1 : 
R=204+CDR-C13262+N33:POKE PLH+1,VP+4:S 
p=VP+4 

240 IF F = 1 THEN R = R-7:GOSUB 310 
250 IF PEEKC532543>1 OR PEEK£53255)>1 
THEN Q=-Q:POKE DR,112:DR=DR+1:IF DR = 13 
272+N THEN 250 

260 LM=LM+Q:POKE 13273+N,LM 
270 IF PEEKC532523>0 THEN 420 
280 POKE 53278,O:GOTO ISO 

250 SETCOLOR 2,O,O:SETCOLOR 0,8,4:PDKE 
54286,255:POKE 560,TROl:POKE 561,TR02 
IFOR H = PLH TO PLH+3:POKE H,O:NEKT H 
30O POKE 53278, O : POKE 84,O:? ttej" 
iSOUND 2,0,O,O:SOUND 3,O,0,O:GOTO 670 
310 IF PEEKC532533>1 AND PEEKC532533<8 
THEN JH=7:GOTO 350 
320 POKE 88,R:POKE 84,O:? »6j M 88\D 
11 : IF R<50 THEN POKE 84, O:? ttej" 

" I F = O 

330 IF PEEKC532533>1 AND PEEKC532533<8 
THEN JH=O:G0T0 350 
340 RETURN 

350 HP=12818+N+INT t t t CR-403 +JW-CDR-£13 

262 + N3 3*73 ^143 +0.53*40 + INT£££SP"483/16 
+ CLM-583 ^43*43 

360 IF HP>13050+H THEN RETURN 

370 EA = 0:FDR Z = HP TO HP + 3:EA = EA + PEEK £Z 

3:PDKE Z,O:NEKT Z:IF EA = D THEN R=R+JH: 

DFTIIDH 

380 POKE 84,0:? ttej" 

350 SOUND 0,220,10,15 

400 F=0:NSA=NSA-1:SC=SC+10:POKE 656,O: 

POKE 657,18:? SCJ:IF NSA=D THEN POP :G 
OTO HO 

410 SOUND O,O,O,O:RETURN 

420 LI=LI-l:POKE 656,O:POKE 657,5:? LI 
;:POKE 84,0:? ■■:SE=SE-1:FOR Z = 

200 TO 255:SOUND O,Z,8,15:NEKT Z 
430 GOTO HO 

440 GRAPHICS 2:TRD1=PEEK£5603:TR02=PEE 
KC5613:TR0DL=TR01+256*TR02:SETCOLOR 2, 
O,O:SETCOLOR 0,8,4 

450 POKE TRDDL+10,6:POKE TRODL+ii,6:PO 
KE TRODL+12,6:POKE TRODL+13,2:POKE 16, 
64:POKE 53774,64 

460 POSITION 2,4:? »6j M SPACE ASSAILANT 
S 11 : POSITION 5,8:? 06; "AHSCHUETZ/WEISGE 
RBER/ANSCHUETZ" 

470 POSITION 4,6:? 116 J 1 tWCEl" 
480 CH1=48#256+N:CH2=60*256+N:FOR 1=0 

TO 511:PDKE CH1+I,PEEK£57344+13:POKE C 
H2+I,PEEK£57344+13:NEXT I 

450 FOR 1=8 TO 55:READ A:POKE CH1+I,A: 
NEXT I:FOR 1=8 TO 55:READ A:POKE CH2+I 
,A:NEXT I 

SOD FOR 1=56 TO 75:READ A:POKE CH1+I,A 
:POKE CH2+I,A:NEXT I:POKE 756,6D+M:CH= 
60 + M 

510 FOR MIAD=56*256+N TO 5B*256+N:POKE 
MIAD,0:NEXT MIAD 

520 FOR MIAD=53*256+N TO 54*256+N:POKE 
MIAD,O:NEXT MIAD 

530 FOR Ml = l TO 10:M2 = INTERND £03*2203 + 
14336 + N:R = INTERND£03*73 +1:POKE M2,2^R: 
POKE M2+24D,2^R:NEXT Ml 

540 FOR I=13256+N TO 13251+N:READ A:IF 
A = 5 O OR A = 6 2 DR A = 51 THEN ZZ = ZZ + 1:IF 
ZZ>1 THEN A=A+M 

550 IF A = 5 O DR A = 62 DR A = 51 THEN ZZ = ZZ 
+1:IF ZZ>1 THEN A=A+M 


560 POKE I,A:NEXT I:FOR I=13156+N TO 1 
3165 + N:READ A:A = A + M# £A = 563 :POKE I,A:NE 
XT I 

570 FOR I=13166+N TO 1321D+N STEP 2:PO 

KE I,5:POKE 1+1,48:NEXT I 

580 FDR I=13211+N TO 13213+N:READ A:A= 

A+M»£A=513:POKE I,A:NEXT I:DIM A$E2D3: 
AS = "SPACE ASSAILANTS 11 

550 POKE 13260+N,PEEK£6603:POKE 13261+ 
N,PEEK £6613 :POKE 1316D + N,PEEK £6603 :POK 
E 13161 + N,PEEK £6613 

600 PM=48*256+N:PLX=53248:FOR X=216 TO 

223:READ A:POKE PM+1D24+X,A:NEXT X 
610 FOR X=PM+1536 TO PM+2D47:POKE X,25 

5:NEXT X 

620 FOR H = 1 TO 16:A = PEEK EADR EA$ EX3 3 3 ~3 
2:FDR V=D TO 7:POKE H*8+V+PM+1576,255- 
PEEK £A*8+Y+573443 

630 POKE X*8 + Y + PM+1832,255-PEEK CA*8 + Y + 
573443:NEXT V:NEXT X:POKE 704,50:PDKE 
705,40:POKE 706,130:POKE 707,130 
640 POKE 555,62:POKE 623,1:PDKE 53277, 

3:PDKE 54275,PM/256:POKE 53256,1 
650 POKE 15880+N,155:POKE 15881+N,200: 
POKE 15882+N,20O:POKE 15883+N,2D1 
660 P OSITION 0,6:? tt6; M f3H^ start H3 
IStHU" : POKE 85,53 + M: POKE 82,D:PDKE 755 
, 0 

670 FOR RA=12855+N TO 13055+N STEP 4:P 
OKE RA,O:POKE RA+1,D:NEXT RA 
680 IF PEEK£532753<>6 THEN 680 
650 POKE 560,IDO:POKE 561,51+M:5ETCOLO 
R 0,12,8:SETCOLOR 1,3,6:SETCOLOR 2,8,2 
:SETCOLOR 3,12,4 

70O POKE PLK+2,48:POKE PLH+3,200:POKE 
PLH,121:VP = 121:0 = 0.25:S E = O:SC = D:NSA = D: 
S D = 10 : LI = 3 

710 POKE 656,O:POKE 657,5:? LI;:PDKE 6 
57,18:? 5C; M 11 : SOUND 2,150,10,3:5 

DUND 3,152, lO, 3 : GOTO HO 

720 DATA 3,15,55,63,15,4,16,65,152,240 
,236,252,240,16,64,0,0,67,75,30,14,14, 
15,20 


730 

DATA 

O,1S3,241, 

ISO 

J 

176 

J 

176, 

240, 

20, 

0 i 4 , 

IS, 63 

,62,30,75, 

16, 

0 

, 16 

J 

1S6 , 

252, 

188 

, ISO 

, 241, 

4 








740 

DATA 

3,15,62,63 

, 15 

JP 

4,1 

JP 

O,1S2,240,1 

88,252,240,16,4,65, 

ET 

O, 3 

J 

15, 

15,30 

, 75, 

7S, 

750 

DATA 

O,1S2,240, 

24D 

J» 

ISO 


241, 

241, 

8D, 

16,4 

,3,63 

,62,30,31, 

20, 

4 

, 16 

JP 

1S2 , 

252, 

188 

, ISO 

, 244, 

2D 








760 

DATA 

0,0,0,0,11 

, 63 

J 

127 

JP 

227, 

0,0, 

6D, 

255, 

153,153,255,24, 

0, O 

J 

0, O 

J» 

2D8, 

252, 

254 

, 155 

, 112, 

112,112,66 

, 0, 

0 

, 0, 

0 

,0,0 

,0,0 


770 

DATA 

0,0,0,0,68 

, 50 

J 

50, 

56,4, 

S6,4 

, 56 


,4,56,4,56,4,112,70,0,62,65,100,51,112 
,112,112,66,0,0,73,0,56,48,65,200,51 
78D DATA 8,8,28,28,62,62,42,42 

750 DATA 1,3,5,1,3,5 
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cn 11 cn 11 cn cn 


YAHTZEE 


100 GOSUB 2510:DIM HAME1$C163 f NAME2$Cl 
63 ,HAME3$£163 , NAME4$£163 ,NAME5$£163 ,BL 

KNM$ £163 : BLKNH$ £13 ... £163 = " 11 

110 BLKNM$£23 =BLKNM$ 

120 DIM SCORES Cl?,53 f ROLL C53 f OCC C6) f AN 
S$£13 ,CHANGE £53 ,TURNS £53 
130 GDSUB 1570:GOTO 150 

140 ? CHR$C1253:POKE 752 l l:FOR 1=1 TO 

18:FOR J = 1 TO 5:SCORES Cl,J3 =0:TURNS CJ3 
=0:NEXT J:NEHT I:PL=1:RETURN 
150 GOSUB 140:GDSUB 2210:GDSUB 1360 
16D GOTO 30O 

17D POSITION 0,0:? HON5:RETURN 

18D POSITION 0,0:? TUO#:RETURN 

ISO POSITION 0,0:? THREE#:RETURN 

200 POSITION 0,0:? FOUR#:RETURN 

210 POSITION 0,0:? FIVE#:RETURN 

220 POSITION 0,0:? SIX#:RETURN 

230 POSITION 2,2:? CHR#C173j:POSITION 

2,3:? CHR#C1243;:POSITION 2,4:? CHR#£2 

63;IPOSITION 3,3:? "YAHTZEE"; 

240 FOR 1=3 TO S:POSITION 1,2:? CHR#Cl 
83;IPOSITION 1,4:? CHR#£183;:NEXT I:PO 
SITION 10,2:? CHR#£53; 

25D POSITION 10,3:? CHR#£1243j:POSITIO 
N 10,4:? CHR# £33 ; 

260 RESTORE 2620:FOR 1=1 TO S : FOR J=1 
TO 7:READ A:POSITION J+2,I+8:? CHR#CA3 
;:NEXT J:NEXT I:RETURN 

270 POKE 89,INT CPL1/2563+2:POKE 88,V 
280 POSITION 0,0:? BLK16#;:POKE 88,NY: 
POSITION 0,0:? LEFT# 

290 POKE 89,U:POKE 88,L:Y=NY:RETURN 
300 ROLLS=l:FOR 1=1 TO 5:ROLL£13=INTCR 
ND £03 #6 3 +1:NEXT I 

310 POKE 89,INT CPL1/2563 :FOR 1 = 1 TO 15 

:YY = INTCRND£03*53 +1:POKE 88,YY*40-8 

320 EA=INTCRND£03*63+1:ON EA GOSUB 170 

,ISO,ISO,200,210,220:NEXT I 

330 POKE 8S,INT CPL1/2563 :FOR 1 = 1 TO 5 

340 POKE 88,1*40-8:ON ROLL£13 GOSUB 17 

O,ISO,ISO,200,210,220:NEXT I 

350 POKE 89jU:POKE 88,L:POSITION 17,23 

:? " FINISHED? CY/N3"; :POKE 764,255 

360 GOSUB 580 

370 IF PEEK£7643=43 THEN GOTO 610 
380 POSITION 17,23:? ■■ 

"J :POKE BS,INT CPL1/2563+2:POKE 88,V: 
POSITION 0,0:? BLK16# 

3SO POKE 764,255:V=40:POKE 8S,INTCPL1/ 
2563 +2:POKE 88,Y:POSITION 0,O:? LEFT# 
400 ST = STICK £03 

410 IF S T = 14 THEN NY = Y —40:NY = NY + 200*CN 
V=03:GOSUB 270 

420 IF S T = 13 THEN NY = Y + 40:NY = NY-200*CN 
Y=24D3:GOSUB 270 

430 IF STRIGCD3 THEN GOTO 480 
440 POKE 89jU:POKE 88,L 

450 IF CHANGECY/403=0 THEN POSITION 11 
, CVT'40 —13 *5 + 1 : ? CHR# £173 ;">"; : CHANGE CV 
/403=1:GOTO 470 

460 POSITION 11,CY/40-13*5+l:? " ";:C 

HANGE CVT'403 =D 

470 FOR DELAV=1 TO 25:NEXT DELAY 
480 IF PEEK£7643=33 THEN 500 
4SO GOTO 400 

500 FOR 1=1 TO 5:POSITION 11,£1-13*5+1 
:? " "J:NEXT I:FOR 1=1 TO 5 

510 IF NOT CCHANGE £13 3 THEN GOTO 550 
520 CHANGE£13=D:POKE 8S,INT CPL1/2563 :P 
OKE 88,£1-13*40+32 

530 FOR J=1 TO 5:BP=INTCRND£03*63+1:ON 
BP GOSUB 170,180,ISO,200,210,220:NEXT 
J 

540 ROLL£13=INTCRND£03*63+1:ON ROLL£13 
GOSUB 170,180,ISO,200,210,220 
550 NEXT I 

560 ROLLS=ROLLS+l:IF ROLLS=3 THEN 610 
570 GOTO 330 
580 YUNHUI=0 

5SO IF PEEK£7643<>255 THEN POSITION 36 
,23:? " " ; : SOUND O , 50,12,8 : FOR 1 = 1 TO 

20:NEXT I:SOUND O,O,O,O:RETURN 
600 YUHHUI=1-YUNHUI:POSITION 36,23:? C 
HR#C32+63*YUNHUI3;:FOR 1=1 TO 30:NEXT 
I:GOTO 5SO 

610 POKE 8S,INT CPL1/2563 +2:POKE 88,Y:P 
OSITION 0,0:? BLK16# 

620 POKE 89jU:POKE 88,L:POSITION 17,23 

: ? " CHOOSE OPTION : 11 J 

630 POKE 53258,O:POKE 53250,ISO 

640 POKE 764,255:Y=50:POKE BS,INTCPL1/ 

2563 +2:POKE 88,Y:POSITION 0,0:? RIGHT# 

SO ST = STICK £03 

60 IF S T = 14 THEN NY = Y —8:NY = NY + 136*CNY 
423-24*CNY=1143-8*CNY=1703:GOSUB 700 
70 IF S T = 13 THEN NY = Y + 8:NY = NY —136*CNY 
1863+24*CNY=S83+8*CNY=1703:GOSUB 700 
SO IF STRIG £03 =0 THEN GOTO 730 


6 SO GOTO 650 

700 POKE 8S,INT CPL1/2563 +2:POKE 88,Y 
710 POSITION 0,0:? BLK8#;:POKE 88,NY:P 
OSITION 0,0:? RIGHT# 

720 POKE 89jU:POKE 88,L:Y=NY:RETURN 
730 POKE 89jU:POKE 88,L:POKE 764,255:C 
H0ICE=CY-503/8+l 

740 ON CHOICE GOSUB 16SO,1710,1730,175 
O,1770,17SO,0,0,0,1810,1850,18S0,1S70, 
2040,2110,0,2180 

750 IF CHOICE=15 AND SCORES£16,PL3>0 A 
ND OK THEN GOTO 870 

760 IF SCORESCCHOICE,PL3OO THEN GOSUB 
1350 : POSITION 17,23:? 11 TRY AG 

AIN! 11 ; IFOR 1 = 1 TO lOO : NEXT I : GOTO 620 
770 IF OK THEN GOTO 840 

780 GOSUB 1350:POSITION 17,23:? "NIL T 
HAT CATAGORY?"; 

7SO IF PEEK£7643=255 THEN GOTO 780 
see SOUND O,SO,12,8:FOR 1=1 TO 2e:NEXT 
I:SOUND O,O,O,O 

810 IF PEEK£7643=43 THEN SCORESCCHOICE 
,PLJ=-l:POSITION 36,CHOICE+1:? "NIL";: 

GOTO 860 

820 IF PEEK£7643=35 THEN GOTO 620 
830 POKE 764,255:GOTO 7SO 
840 SCORESCCHOICE,PLJ=TOT 

850 POSITION 36,CHOICE+1:? SCORESCCHOI 
CE, PLJ J 

860 TURNSCPL3=TURNSCPL3+1 

870 DONE = l:FOR 1 = 1 TO NUMPL:IF TURNS Cl 
3 013 THEN DONE = 0 

880 NEXT I:IF DONE THEN GOTO 1090 
890 GOSUB 900:POKE 53250,120:GOTO 300 
900 POKE 89,INT CPL1/2563+2:POKE 88,Y:P 
OSITION 0,0:? BLK8#:POKE 89,U:POKE 88, 
L 

910 POSITION 17,23:? "PRESS FIRE BUTTO 

920 ^IF STRIG £03 THEN GOTO 920 
930 POSITION 17,23:? " 

■ ■a 

940 f PL=PL+1:IF PL>NUMPL THEN PL=1 
950 IF TURNSCPL3=13 THEN GOTO 948 
960 POSITION 19,8!? BLKNM#;:ON PL GOSU 
B 1040,1050,1060,1070,1080 
970 FOR 1=1 TO 6:GOSUB 980:NEXT I:FOR 
1=10 TO 17:GOSUB 980:NEXT I:GOTO 1010 
980 POSITION 36,1+1:? " ";:POSITION 

36,I + l:IF SCORES Cl,PLJ>0 THEN ? SCORES 
Cl,PL);:RETURN 

990 IF SCORES Cl,PLJ=-l THEN ? "NIL"; :R 
ETURN 

lOOO RETURN 

101O POSITION 27,17:? CHR# £203 ;" "jCHR 

#£203;" " J CHR#£203J" ... J 

1020 IF SCORES£16,PLJ=0 THEN RETURN 
1030 FOR 1 = 1 TO SCORES £16,PLJ/lOO:POSI 
TION 27+£1-13*2,17:? CHR#£1483j:NEXT I 
:RETURN 

i040 POSITION 35-LENCNAME1#3,O:? NAME1 
#;:RETURN 

1050 POSITION 35-LENCNAME2#3,O:? NAME2 
#;:RETURN 

1060 POSITION 35-LENCNAME3#3,O:? NAME3 
#;:RETURN 

1070 POSITION 35-LENCNAME4#3,O:? NAME4 
#;:RETURN 

1080 POSITION 35-LENCNAME5#3,O:? NAMES 
#;:RETURN 

10 9 0 POKE 89,INT CPL1/2563+2:POKE 88,Y: 
POSITION 0,0:? BLK8#:POKE 89,U:POKE 88 
, L 

llOO FOR PL=1 TO NUMPL 

lllO POSITION 17,23:? "PRESS FIRE BUTT 
ON:"; 

1120 IF STRIG£03 THEN GOTO 1128 

1130 POSITION 19,0:? BLKNM#;:ON PL GOS 

UB 1040,1050,1060,1070,1080 

1140 TOT=0:FOR 1=1 TO 6:TOT=TOT+SCORES 

Cl,PLJ*CSCORESCl,PL3 <>-13 :POSITION 36, 

1+1:? " ";:POSITION 36,1+1 

1150 IF SCORES Cl,PLJ=-l THEN ? "NIL";: 

GOTO 1170 

1160 ? SCORES Cl,PLJ J 

1170 NEXT I:IF TOT> =63 THEN SCORESC7,P 
LJ=35:POSITION 36,8:? "35";:G8TO 1190 

llSO SCORES£7,PLJ=D:POSITION 36,8:? "O 

1190 TOT=TOT+SCORES£7,PL3:SCORESC8,PLJ 
=TOT:POSITION 36,9:? " "j:POSITION 3 

6,S:? TOT; 

1200 TOT=0:FOR I=10 TO 17:TOT=TOT+SCOR 
ESCl,PLJ*CSCORESCl,PL3 <>-13 :POSITION 3 
6,1+1:? " ";:POSITION 36,1+1 

1210 IF SCORES Cl,PLJ=-l THEN ? "NIL";: 

GOTO 1230 

1220 ? SCORES Cl,PLJ ; 

1230 NEXT I:SCORES£18,PLJ=TOT:POSITION 
36,is:? " ";:POSITION 36,IS:? TOT; 
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1240 POSITION 27,17:? CHR$ C2Q3 J 11 "JCHR 

$€203;" ";CHR$t203 J M M jCHR$t20) J . J 

1250 IF SCORESC16,PL3=Q THEN POSITION 
36,17:? 11 11 J : GOTO 1270 

1260 FOR 1 = 1 TO SCORES C16 ,PL3/lOO:POST 
TION 27+11-13*2,17:? CHR$C1483 J :NEKT I 

1270 SCORES CIS,PL3 =SCORESC8 ,PL3 + SCORES 
CIS, PLJ : POSITION 36,21:? 11 "J iPOSITI 

ON 36,21:? SCORES CIS,PL3 J 
1280 NEKT PL 

1290 POKE 764,255 : POSITION 17,23:? 11 

PLflV AGAIN? 11 ; 

130O IF PEEK£7643=255 THEN GOTO 1300 
1310 SOUND O,50,12,8:FOR 1=1 TO 20:NEK 
T I:SOUND O,O,O,O:FOR 1=0 TO 3 
1320 POKE 53248+1,O:NEKT I:IF PEEK£764 
3 043 THEN ? CHR$ C1253 : POKE 764,255:PO 
KE 752,O:POKE 54286,64:END 
1330 GDSUB 1570:GOSUB 140:GOSUB 1360 
1340 POKE 53248,105:POKE 53249,105:POK 
E 53250,120:POKE 53258,2:GOTO 300 
1350 POKE 89,INT tPLl/2563 +2:POKE 88,V: 
POSITION 0,0:? BLK8$:POKE 89,U:POKE 88 
,L:RETURN 

1360 ? CHR$C1253:GOSUB 230:POKE 1599 f G 

:K=USRC16253:POKE 54286,192 


1370 

POSITION 

35- 

LENCNAME1S3,O:? NAME1 

^ J 

1380 

POSITION 

30, 

2 : 

7 

■ 

ONES: "J 


1390 

POSITION 

30, 

3 : 

■7 

■ 

THOS: "J 


1400 

POSITION 

28, 

4 : 

■7 

■ 

THREES: 

J 

1410 

POSITION 

2S, 

5 : 

7 

■ 

FOURS: "J 


1420 

POSITION 

29, 

6 : 

7 

■ 

FIVES: "J 


1430 

POSITION 

29, 

7 : 

7 

■ 

SIKES: "J 


1440 

POSITION 

29, 

8 : 

7 

■ 

BONUS: 


1450 

POSITION 

23, 

S : 

7 

■ 

UPPER TOTAL: 


1460 

POSITION 

23, 

11 


7 

"3 OF A KIND 

: 

1470 

POSITION 

23, 

12 


7 

"4 OF A KIND 

: 

1480 

POSITION 

24, 

13 


7 

"FULL HOUSE: 


1490.. 

POSITION 

20 , 

14 


7 

"SMALL STRAIGHT: 

1500.. 

POSITION 

20 , 

15 


7 

"LARGE STRAIGHT: 

1510 

POSITION 

27, 

16 


7 

"YAHTZEE: 

1 1 ■ 
j 

1520 

POSITION 

27, 

17 


7 

CHRS C203 J" " 

; CHR 

S C203 
1 1 ■ 

J" "J CHRS C203 ; 

■ ■ 

■ ■ 

;CHRS C203 ;": 


1530 

POSITION 

28, 

18 

: 

7 

"CHANCE: 

11 ■ 

J 

1540 

POSITION 

23, 

IS 

: 

7 

"LONER TOTAL 


1550 

POSITION 

2S, 

21 

: 

7 

"TOTAL: 

J 

1560 

RETURN 







1570 

POKE 54286,64: 

POKE 764,255:? 

CHRS 

C1253 

:POKE 70S 

, 54 

: POKE 

710,50:POKE 

712 


,132:POKE 1599jO:TRAP 40000 

1580 ? CHRSC1253:POKE 752,0:TRAP 40000 

1590 TRAP 1580:POSITION 10,10:? "HOH M 
ANY PLAYERS";:INPUT NUMPL 

1600 IF NUMPL{1 OR NUMPL>5 THEN GOTO 1 
580 

1610 TRAP 40000:TRAP 1610:FOR 1=1 TO N 
UMPL:? CHRSC1253:POSITION 6,10:? "NAME 
OF PLAYER ";lj 

1620 ON I GOSUB 1640,1650,1660,1670,16 
80:NEKT I 

1630 TRAP 40000:POKE 752,1:RETURN 

1640 INPUT NAMElS:RETURN 

1650 INPUT NAME2$:RETURN 

1660 INPUT NAME3$:RETURN 

1670 INPUT NAME4$:RETURN 

1680 INPUT NAME5$:RETURN 

1690 T0T=0:0K=0:FOR 1=1 TO 5:TOT=TOT+C 

ROLLCI3=13:NEKT I:IF TOT THEN OK=l 


1700 

RETURN 








1710 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

5 : TOT 

= TOT + 2 

* CROLLCI3 =23 : 

NEKT 

I : 

: IF 


TOT 

THEN 

O K = 1 

1720 

RETURN 








1730 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

5 : TOT 

= TOT + 3 

* CROLLCI3 =33 : 

NEKT 

I : 

: IF 


TOT 

THEN 

O K = 1 

1740 

RETURN 








1750 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

5 : TOT 

= TOT + 4 

* CROLLCI3=43 : 

NEKT 

I : 

: IF 


TOT 

THEN 

O K = 1 

1760 

RETURN 








1770 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

5 : TOT 

= TOT + 5 

* CROLLCI3 =53 : 

NEKT 

I : 

: IF 


TOT 

THEN 

O K = 1 

1780 

RETURN 








17SO 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

5 : TOT 

= TOT + 6 

* CROLLCI3=63 : 

NEKT 

I : 

: IF 


TOT 

THEN 

O K = 1 

1800 

RETURN 








1810 

T O T = O:OK 

= 0 : FOR 

1 = 

1 

TO 

6 :OCC CI3=0: 

NEKT 

I:FOR 1= 

1 TO 

5 : 

: OCC CROLL CI33 

= OCC CR 


OLLCI33+1:NEKT I 

1820 FOR 1=1 TO 6:TOT=TOT+I*OCCCI3:IF 
OCC CI3 > =3 THEN OK = l 


1830 NEKT I 

1840 RETURN 

1850 T0T=0:0K=0:FOR 1=1 TO 6:OCCCI3=0: 

NEKT I:FOR 1 = 1 TO 5:OCC(ROLL CI3 3 =OCCCR 
OLLCI33+1:NEKT I 

I860 FOR 1=1 TO 6:TOT=TOT+I*OCCCI3:IF 
OCC CI3 > =4 THEN OK = l 
1870 NEKT I 

1880 RETURN 

1890 T0T=0:0K=0:0K2=0:0K3=0:FOR 1=1 TO 

6 :OCCCI3=0:NEKT I:FOR 1=1 TO 5:OCCCRD 
LLCI33=OCCCROLLCI33+1:NEKT I 
1900 FOR 1=1 TO 6 :IF OCCCI3=2 THEN IF 
OK3=l THEN OK=l:GOTO 194G 

191G IF OCC CI3 =2 THEN OK2 = l:GOTO 194G 
192G IF OCC CI3 =3 THEN IF OK2 = l THEN OK 
=l:G0TO 1940 

1930 IF OCC CI3 =3 THEN OK3 = l 
1940 NEKT I 

1950 IF OK THEN TOT=25 
I860 RETURN 

1970 T0T=0:OK=Q:FOR 1=1 TO 6:OCCCI3=0: 

NEKT I:FOR 1=1 TO 5:OCCCROLLCI33=OCCCR 
OLLCI33+1:NEKT I 

1980 C0UNT=0:FOR 1=1 TO 6:IF OCCCI3 TH 
EN COUNT=COUNT+l:GOTO 2010 
1990 IF COUNT>=4 THEN OK=l 
2000 C0UNT=0 

2010 NEKT I:IF COUNT>=4 THEN OK=l 

2020 IF OK THEN T0T=30 
2030 RETURN 

2040 TOT=0:OK=G:FOR 1=1 TO 6:OCCCI3=0: 
NEKT I:FOR 1=1 TO 5:OCCCROLLCI33=OCCCR 
OLLCI33+1:NEKT I 

2050 COUNT=0:FOR 1=1 TO 6:IF OCCCI3 TH 
EN COUNT=COUNT+l:GOTO 2080 
2060 IF COUNT>=5 THEN OK=l 
2070 C0UNT=0 

2080 NEKT I:IF COUNT>=5 THEN OK=l 

2090 IF OK THEN T0T=40 
2100 RETURN 

2110 T0T=0:OK=l:NUM=ROLLC13:FOR 1=2 TO 

5:IF ROLLCI3 <>NUM THEN 0K = 0 
2120 NEKT I 

2130 IF OK THEN T0T=50:GOSUB 2190 

2140 IF SCORES CIS,PL3 <>SO THEN GOTO 21 

70 

2150 SCORES C16,PL3 =SCORESC16,PL3 +100:P 
OSITION 27+ CINT(SCORES C16,PL3 /1003 -13* 
2,17:? CHR$C1483; 

2160 POSITION 36,17:? SCORESC16,PL3; 
2170 RETURN 

2180 TOT=0:OK=l:FOR 1=1 TO 5:TOT=TOT+R 
OLLCI3:NEKT I:RETURN 

2190 POSITION 5,14:? CHR$C73 ;CHRSC143 ; 
CHR$C63;:FOR 1=1 TO 20:NEKT I:POSITION 
7,12:? CHRS C203 ; 

2200 FOR 1=1 TO 50:NEKT I:POSITION 7,1 
2:? CHRS C1113 ; :POSITION 5,14:? CHRSC32 
3 ;CHRS C183 ; CHR$C323 ; :RETURN 
2210 PM=PEEKC1063-16:PL1=PM*256+1024:P 
OKE 559,62:POKE 623,l:POKE 53256,2:POK 
E 53258,2:POKE 53277,3:POKE 54279,PM 
2220 POKE 704,O:POKE 705,44:P0KE 706,3 

2:POKE 53248,105:POKE 53249,105:POKE 5 
3250,120 

2230 DIM HDN$ C323 ,THO$ C323 ,THREE? C323 , 
FOURS C323 f FIVES£32) ,SIK$C323 :U = PEEKC89 
3 :L = PEEK C883 :POKE 89,INT CPL1/2563 
2240 DIM BLANKS C323 :BLANKS C13 =CHRS C323 
:BLANKS C323=CHRS C323 :BLANKS C23 =BLANKS 
2250 FOR 1=1 TO 5:FOR J=PLl+256+I*40-8 
TO PLl+256+I*40—8+31:POKE J,255:NEKT 
J:NEKT I 

2260 DIM BLK8S C83 ,BLK16SC163 :BLK8SC13 = 
CHRS C323 :BLK8S C83 =CHRS C323 :BLK8SC23 =BL 
K8S 

2270 BLK16S Cl,83 =BLK8S:BLK16S C9,163 =BL 

2280 DIM LEFTSC163,RIGHTSC83:FOR 1=1 T 
O 8:READ A:LEFTS CI*2 —1,1*2 —13 =CHRS CA3 : 
LEFTS CI++2,1*23 =CHRS CA3 : NEKT I 
2290 FOR 1 = 1 TO 8:READ A:RIGHTS Cl,13=C 
HRS CA3 :NEKT I 

2300 FOR 1=1 TO 8:READ A:FOR J=1 TO 4 

2310 HONSCCl—13*4+J,CI-13*4+J3=CHRSCA3 

2320 NEKT J:NEKT I 

2330 FOR 1=1 TO 8:READ A:FOR J=1 TO 4 

2340 THOSCCl—13*4+J,CI-13*4+J3=CHRSCA3 

2350 NEKT J:NEKT I 

2360 FOR 1=1 TO 8:READ A:FOR J=1 TO 4 

2370 THREES C Cl —13 *4 +J, CI-13*4 + J3=CHRSC 
A3 

2380 NEKT J:NEKT I 

2390 FOR 1=1 TO 8:READ A:FOR J=1 TO 4 

2400 FOURS C Cl —13 *4 +J, Cl —13 *4 +J3 =CHR$CA 
3 

2410 NEKT J:NEKT I 
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2420 FOR 1 = 1 TO 8:READ A:FOR J = 1 TO 4 

2430 FIVEStCl —15 #4 +J, Cl —15 *4 +J J =CHRSCO 
5 

2440 NEHT J:NEHT I 

2450 FOR 1=1 TO 8:READ A:FOR J=1 TO 4 

2460 SIK$CCl —15 #4 +J, CI-15*4+J5=CHR$CA5 

T J:NEHT I:POKE 54286,64 
PEEK C5685 +256*PEEKC5615 :POKE D 
POKE DL+13,130:POKE DL+18,130: 
23,130:POKE 512,O:POKE 513,6 
1=1536 TO 1591:READ A:POKE I, 
IFOR 1=1600 TO 1611:READ A:POK 
HT X 

1=1625 TO 1635:READ A:POKE X, 
IPOKE 89,U:POKE 88,L:RETURN 
PHIC5 1I5ETCOLOR 2,O,O:SETCOLO 
POKE 16,64:POKE 53774,64:DL=PE 
256*PEEKC5615:POKE DL+14,23 
E DL+18,2:POKE 54276,4:POSITIO 
N 8 ,9:? B6; M VAHTZE E M :PO SITION 4,11:? tt 
6; "liUiE start H3 E33TH3 11 

2530 POSITION 9,13:? «6;■■ANSCHUETZ/HEI 
5GERBER/ANSCHUETZ 11 

2540 IF PEEKC532795<>6 THEN GOTO 2540 
2550 GRAPHICS O:POKE 16,64:POKE 53774, 

64:RETURN 

2560 DATA 64,96,248,108,70,34,34,34,64 
,96,248,108,70,34,34,34 

2570 DATA 32,32,32,56,56,32,32,32,35,3 

5.32.32.32.32.128.128.35.35.32.56.56.3 
2,128,128 

2580 DATA 131,131,32,32,32,32,131,131, 
131,131,32,56,56,32,131,131,131,131,32 
,131,131,32,131,131 

2590 DATA 72,138,72,152,72,174,63,6,18 
9,64,6,168,232,189,64,6,141,10,212,141 
,19,208,140,24,208,232 

2600 DATA 189,64,6,141,23,208,232,224, 
12,208,2,162,0,142,63,6,104,168,104,17 
0,104,64,169,0,141,63,6,76,98,228 
2610 DATA 50,172,54,138,12,132,138,60, 

132.50.140.54.104.169.7.162.6.160.48.3 
2,92,228,96 

2620 DATA 21,21,21,21,21,21,21,32,32,1 

24.32.124.32.32.32.6.13.13.13.7.32.32, 
22,111,32,111,2,32,64,22,32,62 

2630 DATA 32,2,64,32,22,32,18,32,2,32, 

32.7.14.14.14.6.32.32.6.32.32.32.7.32, 
6,32,32,123,32,32,7 
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